AD-A145  539  MULTIPLEXING  THE  ETHERNET  I 

(U)  NAVAL  POSTGRADUATE  SCHOOL  NONTEREV  CA 
A  K  SAKELLAROPOULOS  ET  AL.  DEC  83 

UNCLASSIFIED 


■ 


MULTIPLEXING  THE  ETHERNET  INTERFACE 
AMONG  VAX /VMS  USERS 


I 

» 

I 


by 

Antonios  K.  Sakellaropoulos 
and 

Ioannis  K.  Kidoniefs 
December  1983 

Thesis  Advisor:  _ Uno  R.  Kodres 

Approved  for  public  release;  distribution  unlimited 


84  ns  31  090 


SECUNITV  CLASSIFICATION  OF  THIS  FAOE  r»hm  B«>  Eiit*r«« 


REPORT  DOCUMENTATION  PAGE 


s.  title  (m4  Sumuuj 

Multiplexing  the  Ethernet  Interface 
Among  VAX /VMS  Users 


Antonios  K.  Sakellaropoulos 
Ioannis  K.  Kidoniefs 


f  »jrr-rT-~TT  m  rai  trrxi-T-T.TT 


Naval  Postgraduate  School 
Monterey,  California  93943 


•  ••  CONTMOLUNO  office  name  ano  aookess 

Naval  Postgraduate  School 
Monterey,  California  93943 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


AtClAIfNt'S  CATALOG  HUMiCm 


S.  TYA*  OF  Nf AO»T  •  FCAiOO  COvSAIO 

Master's  Thesis 
December  1983 


ii  »  n  u~r  Tiii-nr  i  i  n  nrr 


Approved  for  public  release;  distribution  unlimited 


•T.  MSTMOUTIOM  STATEMENT  (*1  «•  —MAI*  mwM  M  «Mt  M,  H  «»•**• M  Hw  ft*****) 


SO.  AMTNACT  fCnllwl  «M  rtntH  ME*  U  mmiN  *N  Mawiy  Of  Mm* 


This  thesis  focuses  on  the  multiplexing  of  Ethernet  interface 
among  VAX  11/780  users. 

Since  there  is  only  one  channel  that  connects  VAX  11/780  system  to 
Ethernet  Local  Area  Network,  multiplexing  of  the  NI1010  Unibus 
Ethernet  Communication  Controller  is  necessary  in  order  to  service 
multiple  VAX  users  concurrently  via  Ethernet.  / -r  i 

Described  herein  is  a  Time  Division  Multiplexing  '{Continued) 
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ABSTRACT  (Continued) 

s 

of  NI1010  controller,  which  can  serve  up  to  nine  (9)  separate 
VAX  users.  The  developed  software  enables  those  users  to  com¬ 
municate  in  any  combination  with  one  or  more  computer  systems, 
which  are  connected  to  Ethernet  as  well. 

Two  Microcomputer  Development  Systems  (MDS)  and  VAX/VMS  system 
were  used  for  the  implementation  and  testing  of  the  project. 

The  software  is  designed  in  such  a  way  that  those  MDS's  act  very 
much  like  virtual  VAX/VMS  terminals. 

The  whole  system  can  easily  be  expanded  to  serve  more  than  nine 
users.  y 
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Chapter  ZZ  provides  the  systas  layout  as  it  currently 
exists*  Zt  describes  how  the  fix  and  the  HDS*s  sy stvss  are 
cosaected  vis  Ethernet  and  refers  to  the  previous  relevant 
work  which  hss  bees  perforaed  by  other  students. 

Zc  Chapter  ZZZ  isforsatioa  which  is  wry  useful  and 
sesetises  necessary  in  order  to  understand  this  thesis*  is 
provided.  These  pieces  of  iaforaation  were  found  in  & 
variety  of  refer voces  aad  it  would  be  very  painful  for  the 
reader  to  try  to  locate  thes  oa  his  ova. 

The  sateriel  up  to  aad  including  Chapter  ZZZ  constitutes 
the  background  for  the  understanding  of  this  thesis.  Zn 
Chapter  Z*  however*  the  real  work  starts  with  the  high  level 
design  of  the  Ethernet  seltiplesiag.  Zn  this  chapter  the 
design  concept  is  described#  aad  justification  for  the  deci- 
s&oas  that  were  aed#  ie  gives. 

Chapter  f  costa  ins  the  detailed  design  sad  ispleaeata- 
tioa  of  the  project.  Zs  reality  caapter  f  constitutes  the 
doeseentat  ion  of  the  developed  software.  Zn  sose  instances* 
things  that  have  bees  sectioned  ia  previous  parts  of  this 
thesis  are  repeated*  vhea  it  wes  thoeght  that  they  are 
necessary  for  the  theroegh  enderstsndiag  of  the  progrss. 
Chapter  f!  cos  tains  the  coeclestoa  of  this  work. 

This  thesis  is  also  sep ported  by  several  appendices, 
appecdix  a  provides  s  description  of  tax/vas  syntas 
services  sad  the  its  Ties  Library  roatlaee  which  were  used 
is  the  progress*  along  with  in  forest  loa  oa  their  see. 

appendix  •  provides  general  iaforaation  about  thu 
tthuraet  local  area  setvork . 

appendix  C  gives  a  short  description  of  flZlOlO 

cent  roller  ehlch  coastitetaa  the  fit  -  Ethernet  interface. 

appesdls  0  contains  the  feet*s  anneal  for  the  aulti- 
pletltg  cf  vax/f 0-tth#raat  interface. 

appendices  t  ead  P  provide  the  too  progress  vhlch 
eeepeoe  this  project  (see  Chap,  iv  •). 


n 


*Pt#»4is  3  i  acludes  the  modified  programs  of  a  previous 
******  9f  Sark  Stotzer  (sea  Chap.n  b  1)  with  a  brief  expia¬ 
te****  «(  t M  changes. 

Iff*s4iz  fl  provides  a  high  laval  design  cf  a  virtual 
***et*4l  network,  along  with  some  hints  which  may  be  useful 
**  H#  person  who  will  work  in  this  area. 

finally  in  Appendix  I  is  given  the  program  "LOGEfi"  which 
»*•**•*  #  process  to  run  the  image  "LOGIHOUT. EXE". 

*****  U.ctMfiot  about  this  effort  can  be  found  in  Chapter 
a. 

*«  fl99 IS  OUtCTITBS 

<Phen  thin  thesis  started,  the  objactive  was  to  create  a 
*•*♦*#*  ct  virtual  tera Inals  for  the  VAX/VHS  system.  Here 
leaiflcallf,  two  BPS  aicro computers  which  were  connected  to 
*#<•  Mierta*.  local  area  network,  had  to  be  made  to  act  like 
*W**et  too  Inals  of  »IX/?BS  which  is  also  connacted  to  the 
#****••*. 

hf'lef  oust  of  tho  work  was  done  and  the  greatest  part  of 
•h#  t«e)*ct  had  boon  designed  and  implemented,  all  that  was 
t-#t*  ess  fa#  invocation  of  the  Loginout  procedure  [Bef.  1] 
e*  MS  terminal.  But  at  that  point  it  was  discovered 
**e»l  Siler  the  csrrent  design  of  the  VAX/VMS  Loginout  proce- 
Pete,  It  in  inpossible  to  invoke  this  procedure  by  anything 
#**•  etttf!  the  physically  connected  VAX  terminal.  so  the 
<«*!*&•* i  eoel  wns  changed. 

tie  mv  objective  was  the  sultiplexing  of  the  Ethernet 
to»*ette*e  ssong  ViX/VBS  users  i.e.  NI1010  controller  (see 
*»e«*#ii  Cl.  In  other  words,  how  it  could  be  possible  for 
*»tie*S  ttttt  Of  f IX/VBS  to  use  concurrently  the  unique 
eheetei  vie  which  fix  is  connected  to  Ethernet. 

Since  tie  original  nnd  the  final  objectives  were  in  the 
«•«  eeeetei  direction,  a  large  part  of  the  original  design 
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was  maintained.  The  developed  software  finally  provides  a 
degree  of  virtual  terminal  service.  The  deviation  from  full 
virtual  terminal  service  is  that  currently  the  Loginour 
procedure  must  be  executed  from  a  VAX  terminal,  and  the 
program  that  is  responsible  for  the  execution  of  commands 
entered  from  an  SDS  terminal  must  also  run  from  a  VAX/VMS 
terminal. 

Since  we  need  to  occupy  one  real  VAX  terminal,  in  order 
to  use  an  MDS  as  a  virtual  terminal,  there  is  no  practical 
usefulness  in  the  virtual  terminal  service  as  it  currently 
exists.  However  the  Digital  Equipment  corporation  is 
working  on  the  modification  of  the  Loginout  procedure.  As 
soon  as  this  modified  version  of  the  Loginout  procedure 
becomes  available,  this  thesis  can  be  relatively  easily 
modified  sc  that  full  virtual  terminal  service  will  be 
achieved. 

In  Appendix  H  a  high  level  design  of  a  virtual  terminal 
network  is  provided,  which  may  be  useful  to  the  person  who 
will  undertake  this  task  when  the  Loginout  problem  will  be 
eliminated. 


II.  THESIS  BACKGROUND 


Before  the  development  of  the  present  thesis,  Stctzer 
(Hef.  2]  and  Netniyom  (Ref.  3],  had  worked  on  the  communica¬ 
tion  interface  between  H  OS  microcomputers  and  VAX/VNS. 
Specifically  they  worked  on  transferring  single  messages  and 
files  from  VAX  to  HDS  and  vice  versa. 

A.  SYSTEM  LAYOUT 

In  order  that  communication  between  the  VAX/VMS  and  the 
HDS  systems  to  be  achieved,  both  of  them  were  connected  to 
Ethernet  local  area  network.  Figure  2.1  depicts  how  the 
MDS's  and  the  VAX  are  currently  connected.  This  configura¬ 
tion  existed  on  the  fifth  floor  of  the  Spanagel  Hall  at 
Naval  Postgraduate  School,  when  this  thesis  was  being  devel¬ 
oped. 

One  single  density  and  one  double  density  HDS  are 
connected  to  the  Ethernet.  Each  one  of  them  is  equipped 
with  an  NI3010  board  (Hef.  4],  which  contains  all  the  data 
communication  controller  logic  required  for  interfacing 
those  microcomputers  to  the  Ethernet. 

Similarly  between  the  VAT  and  the  Ethernet  stands  an 
NI1010A  Unibus  Ethernet  communication  controller  [Bef.  5], 
which  is  also  a  single  board  that  contains  the  required 
logic  for  interfacing  the  VAX  to  Ethernet. 

Appendix  B  contains  brief  information  about  Ethernet.  A 
short  description  of  Nil 010  controller  is  given  in  Appendix 
c. 
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Figure  2.1  Systea  Layout 


B.  PREVIOUS  BOBK 


i*  usi  ;  Et^ataat  gaaaaaAs&ilaa 

Stotzer  had  undertaken  the  part  which  deals  with  the 
software  interface  between  the  HDS  and  the  Ethernet. 
Stotzer's  programs  were  modified  in  order  to  meet  the  needs 
of  a  continuous  , uninter rupted,  nds-vax  communication, 
because  in  his  original  programs,  after  the  transmission  of 
a  single  message,  one  had  to  invoke  the  program  again  each 
time. 

Since  a  part  of  this  thesis  was  developed  concur* 
rently  with  Stotzer's  thesis,  several  suggestions  were  made 
to  him,  and  he  redesigned  his  programs  so  that  they  could  be 
used  for  the  purposes  of  this  thesis. 

In  spite  of  the  new  effort,  after  Stotzer's  thesis 
was  completed  and  he  had  departed,  very  few  but  crucial 
changes  were  made  to  his  software,  in  order  it  to  serve 
completely  the  objectives  of  this  thesis.  In  Appendix  6  the 
modified  Stotzer's  programs  are  provided. 

2 .  v&E  -  Ethernet  Communication 

Netniyom  worked  on  the  interface  between  the  VAX  and 
the  Ethernet.  His  programs  made  possible  the  receiving  and 
sending  of  messages  and  files  from  and  to  the  Nil 010  board. 

According  to  bis  design,  a  process  is  continuously 
monitoring  the  Nil 010  and  as  soon  as  it  receives  a  message, 
it  sends  an  a  knowledge  to  the  source  of  the  message,  and 
displays  this  message  on  the  terminal. 

This  process  can  serve  only  one  VAX  user  at  a  time 
and  no  other  process  can  establish  access  to  the  Nil  010 
unless  the  previous  one  has  terminated,  freeing  the  unigue 
channel  of  communication  with  the  NI1010  and  consequently 
with  the  Ethernet. 
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In  contrast  to  Stottar*s  progress  which  war*  a«ai 
alaost  unchanged,  l»taiyoa*s  software  was  not  used.  Bowewer, 
hia  work  was  studied  aost  carefully  by  the  vritara  of  this 
thesis,  who  obtained  tba  initial  knowledge  of  the 
fix- Ethernet  soaaanication  froa  bis  docaaant. 


xxx •  itLEf  i it  immmi 


Before  proceeding  with  the  design  of  the  sslttpleiiag 
systes  of  the  Ethernet  interface  asoag  *41  •  n  users,  it 
•cold  be  sore  convenient  foe  ths  reader  if  sons  relevant 
back  g  too  ad  iaforaatloa  was  provided.  Xa  this  way  the  reader 
will  aavi  -ho  trouble  to  find  tais  iaforsatios  ea  hit  on 
and  thoa  discrepancies  la  essosptiaas  will  be  avoided. 

4.  BOITIFLEXXBO 

Xa  general  ter a a  the  eord  saltiplaciag  rafera  to  the  oee 
of  a  elagle  facility  to  handle  coosorrantly  sevt.al  slailar 
but  separate  operations.  The  sain  ose  of  aoltipleslnq 
however,  is  in  the  field  of  data  eoeesnieatloas,  share  it  la 
used  for  the  traaaaissioa  of  several  lover  speed  data 
streaas,  over  a  single  higher  speed  line. 

Xn  the  contest  of  this  project,  aaltipletiag  of  the 
Ethernet  interface  ispllas  a  scheae  seder  which  aaay  vax 
seers  share  the  saiqse  channel  of  soaasaicatloe  between  V4X 
and  Ethernet. 

Bsltlplesing  is  divided  into  two  basic  categories: 
tttaaiflCl  fiilitlSA  m&lglum  <*0*0  snl  Iiu  Division 
Ball  lilt  ila  a  (ton. 

In  PDB  the  fregsency  spectres  is  divided  sp  a  song  the 
logical  channels,  with  each  nser  having  esclssive  possession 
of  his  fregssecy  band. 

In  TDB  the  ssers  take  tores  (in  a  rosed  robin  fashion  ), 
each  one  periodically  getting  the  entire  bandwidth  for  a 
short  borst  at  a  tiae. 

The  latter  sehese  was  seed  for  the  ssltipleslng  of 
Ethernet  interface  aaoeg  fix  ssers.  Each  saw  who  requests 
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laaal  raqlatar. 

Tba  bard  vara  coatac*  rat  Has  la  a  data  atroctora 
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*'  UlMUfiU  2tU»£i£ 

*%*  I/O  sebsystea  on  VAX/VMS  has  a  t hree-tisred 
A*4  T 4#  top  tit?  is  VAX-11  Resourca  Management 

tov-v#  >4<VAi  *iict  ptovi its  access  to  files,  unit  record 
«st  venal s  foreign  devices.  All  ?AX-11  high  level 
»>«**l»s*M*  U*1li  f 41-11  BBS  to  psrfors  I/O,  Thus,  vax-11 
same**  Mad  ui  SPITS  statessnts  cause  the  compiler  to 
*****#*•  1«;»|  <c  V4S-1 1  BBS. 

to*  hvmI  tie?  is  the  Queue  I/O  systam  services 
eeif<*4  w#*  ‘MhM  ".troogbout  the  prograas.  They  perform  device 
*»•<•**»«-«  #/*  u4  f  A»-l  1  BBS  generates  calls  to  these 

«»r*l***c  *  M*gr»*»#r  oses  the  Queae  I/O  services  when  : 

—  accessing  devices  not  supported  by  rms 
iceei  ties  devices  as  the  miioio  board). 

M  Ms  foreleg  K/O  operations  not  supported 
tf  Ml  (logical  or  physical  I/O) . 

*•*  f  Of  foreleg  1/0  operations  not  supported 
e»  tee  le eg* age's  interface  to  BBS. 

(%ef  ececoeose  z/o  in  pobtrah)  . 

too  Nine  tier  is  tes  device  driver  itself.  The 
|w»He  fa<i  ****!««•  act  as  the  sser  interface  to  the  device 
t*>V*a*  *****  is  sever  directly  accessed  by  the  application 

**••**»•  see . 

to  sol  stale  s  level  of  devise  independence,  vax/vhs 
ties  set  vices  which  allow  prograes  using 
to  sore  lees  to  se  written  without  regard  for  the 
*►***!  teostoliet  et  salt  sssesr  of  the  device,  in  fact,  if 
Ott*”’’  sOt  is  see**  leetesd  of  the  Queue  I/O  services,  the 
***•  ft  "to  device  seed  sot  he  considered  by  the  prograaaer. 
toot#  tff  lists  the  east  isportmt  Device-Dependent  I/O 


In  Table  IV  are  listed  the  two  basic  Mailbox  and 
Message  I/O  services  used  in  this  thesis  to  provide  the 
adequate  communication  among  processes.  After  this  overview 
of  the  most  important  I/O  services,  four  of  which,  namely 
IASSIGN,  $QIO,  $QIOW  and  SCPEMBX  appear  in  the  programs  of 
this  thesis,  it  is  considered  useful  to  carry  out  a  brief 
discussion  of  two  basic  features  that  VAX/VMS  incorporates 


TABLE  III 

MAILBOX  SEE VI 

CES 

Service  name 

Function  (s) 

R  estriction  (s ) 

Create  Mailbox 
and  Assign 
Channel 
(SCREHBX) 

Creates 
a  temporary 
or  a  permanent 
mailbox . 

BXTLM  quota. 

TMPMBX  privilege 
(for  temporary  MBX) . 
PRMMBX  privilege 
(for  permanent  MBX) . 

Delete  Mailbox 
( JDELMBX) 

Marks  a  perma¬ 
nent  mailbox 
for  deletion. 

PRMMBX  privilege. 
Access  mode. 

in  the  above  services:  AST*  s  and  HAILBQXes.  These  features, 
constituting  the  backbone  of  the  whole  design,  have  provided 
the  desired  efficiency  and  facilitated  the  communication 
between  processes. 

a.  Asynchronous  Trap  Services 

Some  system  services  allow  a  process  to  request 
that  it  be  interrupted  when  a  particular  event  occurs.  Since 
the  interrupt  occurs  (out  of  sequence)  with  respect  to 
process  execution,  the  interrupt  mechanism  is  called  an 
asynchronous  system  trap  (AST) .  The  trap  provides  a  transfer 
of  control  to  a  user-specified  procedure  that  handles  the 
event. 


The  system  services  that  use  an  AST  mechanism 
accept  as  argument  the  address  of  an  AST  service  routine 


TABLE  IV 

SUflMARY  OF  I/O  SERVICES 

Service  Name 

Function  (si 

Restrictions 

Assign  I/O 
Channel 
(SASSIGN) . 

Establishes  a  path  for 
an  I/O  request  or 
network  operations. 

None  (for 

I/O  request) . 

NET MBOX  privilege 
(for  network 
operations) . 

Deassign  I/O 
Channel 
( SDASSIG N)  . 

Releases  linkage  for 
an  I/O  path. 

Releases  a  path  from 
the  network. 

Access  mode 

Queue  I/O 

request 

($QlO) 

Initiates  an  input  or 
output  operation. 

Access  mode 

Queue  I/O 
reguest  and 
Walt  for 
event  flag 
($QIO»). 

Initiates  an  input  or 
output  operation  and 
causes  tne  process  to 
wait  until  it  is  com¬ 
pleted  before  continu¬ 
ing  execution. 

Access  mode 

Allocate 
Device 
(SALLGC) . 

Reserves  a  device  for 
exclusive  use  by  a 
process  and  its 
subprocesses. 

None 

Deallocate 
Device 
(SDALLOC) . 

Relinquishes  exclusive 
use  of  a  device. 

Access  mode 

that  is,  a  routine  to  be  given  control  when  the  event 
occurs.  These  services  are: 

—  Declare  AST  (JDCLAST) 

—  Enqueue  Lock  Request  ($ENQ) 

—  Get  Device/Voluae  Information  (SGETDVI) 

—  Get  Job/Process  Information  (IGETJPI) 

—  Get  System  Ride  Information  (SGETSYI) 
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—  Queue  I/O  Request  ($QIO) 

—  Set  Timer  (SSETIMR) 

—  Set  Power  Recovery  AST  ($SSTPR A) 

—  Update  Section  File  On  Disk  (SUPDSEC) 

Of  the  above,  the  $QIO  and  the  $SETI MR  services 
used  in  the  programs,  include  in  their  arguments  ASTs. 

ASTs  are  queued  for  a  process  by  access  mode.  An 
AST  fcr  a  more  privileged  access  lode  always  takes  prece¬ 
dence  over  one  for  a  less  privileged  access  mode;  that  is, 
an  AST  will  interrupt  any  AST  service  routine  executing  at  a 
less  privileged  mode;  however,  the  process  can  receive  ASTs 
from  more  privileged  access  modes  (for  example  a  Kernel-node 
AST  at  I/O  completion). 

Figure  3.2  shows  a  program  interrupted  by  a 
user- mode  AST,  and  the  user-mode  AST  service  routine  inter¬ 
rupted  by  a  Kernel-mode  AST  j 


Figure  3.2  Access  Modes  and  AST  Delivery. 


Some  examples  are  given  below,  which  may  clarify 
the  way  ASTs  work. 
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Example  with  SSETIMR  AST 

In  the  Set  Timer  ( SSETIMR)  system  service, 
can  specify  the  address  of  a  routine  (subroutine  cr  func¬ 
tion)  in  the  main  program  to  be  executed  when  a  time 
interval  expires  or  when  a  particular  time  of  day  is 
reached.  The  service  schedules  the  execution  of  the  routine 
and  returns.  Op  to  this  point  the  sequence  of  the  program 
execution  has  not  been  changed.  Now  when  the  requested  timer 
event  occurs,  the  system  "delivers"  an  AST  b£  interrupt ing 
the  process  and  calling  the  specified  routine. 


#1. 

#2. 


subroutine  rec  ( MRpacket) 

implicit  *  integer  *4  (a-z) 
external  dummy 


istat  *  sysSqio 

2 

3 


(%val  M)  .  %val  (nichan)  , 
%val(io$  readlblk,iosb, 
dummy, MRpacket , MRpacket , 
*val}l525),,,,) 


return 

end 


#3. 


subroutine 


dummy  (MRpacket) 


return 

end 


Figure  3.3  Example  of  an  AST. 

Hi 111  1212  AST 

In  this  example,  the  $QIO  service  is  called.  You 
can  now  specify  not  only  the  address  of  a  routine  but  also 
the  parameter  to  be  passed  to  this  routine.  Figure  3.3  taken 
from  the  program  "Ethermult"  shows  how  an  AST  can  be  deliv¬ 
ered. 
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Notes  or  Figure  3.3: 

#1.  The  AST  subroutine  should  be  declared  as  " external1'. 

#2.  The  AST  subroutine  name  (address)  and  its  paraneter 
are  aaong  the  arguments  of  the  $QI3  service,  at  the  proper 
positions.  The  service  is  executed  in  the  noraal  sequence  of 
the  program,  sets  the  receive  mode  and  returns.  The  program 
continues  executing  until  the  I/O  is  completed,  i.e.  until  a 
packet  is  received.  When  this  happens,  the  AST  is  "deliv¬ 
ered",  the  program  is  interrupted,  and  control  is  trans¬ 
ferred  at  the  subroutine  "dummy"  which  is  executed.  »hen 
control  returns,  the  program  continues  executing  from  the 
point  of  interruption. 

More  about  ASTs  can  be  found  in  : 

—  VAX/VMS  Real  Time  User's  Guide  [Ref.  9]. 

—  VAX/VHS  System  Services  Reference  Manual  [Ref.  6]. 

b.  Mailboxes 

Mailboxes  are  synchronous  (mainly)  virtual 
devices  which  may  be  used  to  transfer  information  among 
cooperating  processes.  The  amount  of  information  transferred 
via  mailboxes  is  normally  less  than  512  bytes.  Actual  data 
transfer  is  accomplished  by  using  VAX/11  RMS  or  I/O 
services. 

when  the  Create  Mailbox  and  Assign  Channel 
(SCRBMBX)  service  creates  a  mailbox,  it  also  assigns  a 
channel  to  it  for  use  by  the  creating  process.  Other 
processes  can  then  assign  channels  to  the  mailbox  using 
either  the  iCREMBX  or  the  SASSISN  system  services. 

The  SCREMBX  system  service  creates  the  mailbox. 
If  identifies  the  mailbox  by  a  user-specified  logical  name 
and  assigns  it  an  equivalence  name.  This  name  is  a  physical 
device  name  in  the  format  HBAn:  where  n  is  a  unit  number. 


Hailboxes  are  either  temporary  or  permanent.  The 
osar  privileges  THPHEX  and  PBN HBX  ara  raquirad  to  craata 
teaporary  or  permanent  aailboxas  respectively.  The  teaporary 
aailbox  is  delated  as  soon  as  the  iaage  that  created  it, 
ceases  to  exist. 

THe  SQIO  (or  SQIOfi)  systaa  service  is  used  to 
perfora  I/O  to  the  aailbox.  In  a  usual  sequence  of  opera* 
tions  involving  a  aailbox,  SCREMBX,  SQIO  and  SQIOR  systaa 
services  are  used.  First,  the  SCREMBX  creates  the  aailbox 
and  assigns  a  channel  to  it  and  than  the  SQIO  (or  SQIOH) 
reads  or  writes  to  it.  Other  processes  aay  have  access  to  it 
by  neans  of  a  distinct  channel  assigned  to  the  process  and 
can  use  also  SQIO  to  read  or  write  to  it.  In  general,  mail¬ 
boxes  are  one  of  the  siaplest  facilities  to  use  that  vxx/vas 
provides  for  interprocess  coaaunication. 


Figure  3.4  Two  processes  accessing  a  aailbox. 

Figure  3.4  gives  a  scheaatic  interpretation  of  the  communi¬ 
cation  between  processes  via  a  aailbox. 

Bore  information  about  aailboxes  can  be  found 
in: 

—  VAX-11  Fortran  Osar's  Guida  [Bef.  10). 

—  VAX/Vit s  Beal  Tiae  User's  Guide  [Bef.  9]. 

—  VAX/VMS  system  Services  Befarence  Manual  [Bef.  6]. 
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3.  Um  &&4  Hu  caansilaa  aazisia 


Many  applications  raquira  tha  scheduling  of  prcgras 
activities  based  on  clock  tiaa.  Ondar  V1X/VSS,  a  proctss  nay 
schadola  events  for  a  spaciflad  tins  interval.  Tiaa  services 
can  do  tha  following  : 

(1).  Schadala  tha  satting  of  an  event  flag,  or  queue 
of  an  aayncbronons  syrtaa  trap  (kST)  for  tha  currant 
process,  or  cancal  a  panding  raquast  that  has  not  yet  baan 
honorad. 


(2)  .  Schadala  a  wake-up  raquast  for  a  hibarnating 
process,  or  cancal  a  panding  wake-up  raquast  that  has  not 
yat  baan  honorad. 

(3) .  Sat  or  racalibrata  tna  currant  systaa  tiaa,  if 
tha  callar  has  tha  pzcpar  usar  privileges. 

Tha  tiaar  services  raquira  tha  usar  to  spacify  tha 
tiaa  in  a  uniqua  64-bit  foraat.  To  work  with  tha  tiaa  in 
d-ffarant  fcraats,  ona  can  usa  tiaa  conversion  servic as  to  : 

(1) .  Obtain  tha  currant  data  and  tiaa  in  an  kSCXX 
string  or  in  systaa  foraat. 

(2)  .  Convert  an  ISCZI  string  into  tha  systaa  tiaa 

foraat. 

(3) .  Conwart  tha  tiaa  froa  systaa  foraat  to  intagar 

values. 

Tha  following  tabla  lists  tha  tiaar  and  tiaa  convarsion 
sarvicas. 


TABLE  T 

Basle  Tiaat  and  Tiaa  Convarsioa  Sarslcas 


atH.Ct  Iftll  £AAS£l&&(£l 


Gat  Tiaa  (SGETTXB) . 

Ba tarns  tbs  data  and 
tiaa  in  systaa  foraat. 

Bona 

Consort  Binary  Tiaa 
to  Bnaaric  Tiaa 
(SBOBTXB) • 

Consorts  a  data  and 
tiaa  iron  systaa  foraat 

Bona 

Consort  Binary  Tiaa 
to  ASCII  strlbg 
(SASCTIB). 

Contorts  a  data  and 
tiaa  fro a  systaa  foraat 
to  an  ASCII  string. 

Bona. 

consort  ASCII  string 
to  Binary  (IBIBTIB); 

Consort  a  data  and  tiaa 

In  an  ASCII  string  to 
tba  systaa  foraat. 

Bona. 

Sat  Tiaar  (SSETXflB) 

Bagnasts  sotting  of  an 
asant  flag  or  guaning  of 
an  AST  basad  on  absolnta 
or  dalta  tiaa  salna. 

TQBLB 
gnota . 

Caneal  Tiaar  ragnast 
(SCABTIB). 

Cnncals  prasianaly  issoad 
tiaar  ragnasts. 

Accass 

aoda. 

n.  BUIftl  SfiUltS 


4.  a  11 1  ML 

1.  ft!  Us  Dsiiu 

Tit  dttiqn  fet  taltipltsinq  tit  BltOt  9,  tbt  Etbtrntt 
inter  fact  d«fle«,  «u  cbaaqtd  Mmil  u  t  p«r*.  of  it 

vat  lapltaentad  iti  experience  vat  obtaiotd.  Ott  a*  for 
probltt  with  tbit  «ork  vat  that  tbt  vnttra  of  tbit  tbttiv 
bad  lot  vorktd  U  tbt  past  tick  f ll/fas  is!  aotetlaea  it 
couldn't  bt  dec  trained  la  advance  vbat  coo  Id  at  deat  tad 
vbat  couldn't.  Bocb  exptrietatatioa  took  place  aad  tbt  orig¬ 
inal  dtn  iqn  vat  aodlfltd  vbtt  no  cottar  f. 

bfttr  tbt  dlfficaititt  of  tbttt  detail*  vtrt  over* 
coat,  tbt  firtt  vorklnq  vtrtioo  of  tbt  proltct  vat 

|  coaplttad.  Bow  tv  vc  tbit  proqrat  vat  not  tafficitatlf  fait, 

bocaatt  tbt  taltipltsiaq  vot  takiaj  plact  at  tbt  ltvtl  of 
tbt  ottrt.  That  it,  vbtt  a  ott;  vat  btinq  ttrvtd,  tbt 
proqrat  oat  atayinq  oith  bit  antil  tbit  over  vat  folly 
|  ttrvtd.  Por  txatplt  obtn  a  ott;  bad  to  qtt  a  flit  fro* 

MX/VBS,  no  ctbtr  aatr  ootid  bt  ttrvtd  antil  tbt  tatirt  flit 
of  tbt  cox  cant  aatr  vat  diaplaytd  on  tbt  BPS  aerate.  If  tbt 
filt  vat  larqt  tnoaqb,  contidtrablt  aaoaat  of  tint  vat 
tptnt,  oitb  tbt  tatirt  ayttta  dtvottd  to  oat  aatr,  and  that 
aadt  tbt  ayttta  vary  intfficitnt.  rbaa,  it  vat  dtcldtd  that 
aoltipltxlaq  occur  at  a  lootr  ltvtl  aad  iatttad  of  tolti- 
plttiaq  atari,  tbt  atv  dotlqn  vat  toltiplttlnq  frattt  of  tbt 
ottrt. 

2.  mam  misttaa 

Tbt  lanqoaqt  that  vat  ttltcttd  for  tbt  iapleaenta- 
tion  of  tbt  project  vat  T4X-11  POlItftS.  Tbt  rtaaoa  for  tbit 
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eteUi  »•«  *.»»t  roinii  u  mf  <iU  iiponii  bf  ni/isi, 
as*  tk«:«  as*  nry  pemUl  ayress  ra«nm  aa*  >n*r  r*c;l- 
Uiss  waicD  ssDs  tk*  joo  cf  >,k«  prostatas?  sacD  #u;«. 
I41U  it  tao»  <oti  u»»  to  kfe>«*  f»uU«f  •:*»  n;* 

10*90090  tkici  *u  acre  if  iiUmi  m  tat  ittuttei. 

>•  XXAtt  SUB 

tacaJU  taat  itfomuea  u  tricolor; ad  *ia  ttatratt 
(••«  ip  0  as*  is  I)  it  9»«f«  of  ty-aa.  Oca  11:1  a?  eap  la 
ah«4  a  fraaa.  Data  as  at  ttasraa*.  fraaa  aatt  Do  irottt; 
tkas  04  eyt as  at*  laaa  or  #404!  to  Dftoa. 

Oaa  Doc  mot  that  Da*  to  Do  oa*o  «aa  toast  n*  ait# 
of  t Da  isforaatloa  fraao  to  Da  trassaittad  aocD  tin. 

UtDoaaD  taat  iso  aa*  aaalfaia  «aa  aot  *«f  attaa- 
sits*  it  *aa  oDnoaa  taat  a  fraao  aita  of  t»00  «aa  tDa  a  cat 
officiate-.,  oaaldarlaf  too  avarapa  laaptO  of  too  raspoasas 
to  tDa  tarlcaa  caaoaada  oat  ora*  fr»a  aa  DOS  tarsisal.  TDia 
la  raaaesaDla,  aaeaaaa  attar  tDa  traaaaisaioa  of  aocD  fraaa, 
too  troaaaittar  oDoal*  racalta  aa  acuotltdyt  ftoa  tDa 
r  scales;,  aa*  otDar  ascot da :y  opart  tioaa  aaat  taat  fora  Da 
ssscata*.  so,  tDa  aaoilar  tDa  fraao  aita,  tDa  aora 
ftapssatly  tDoao  parasite  operatiosa  aro  ttecated.  also  stay 
oaDroatlao  calls  aro  asolded.  DU  of  tD«oa  oparatloaa  ara 
tlaa  coctsalsp  aa*  radaca  tDa  efficttacy  of  tDa  protest.  for 
tDa  aDova  raaaoa  tDa  larpast  (rasa  appaaro  to  Da  tDa  aost 
afflclaat. 

TDa  oaif  easa  vaara  tDa  lata*  fraaa  is  at  a  diaad* 
aaat 09a  is  vDaa  tDa  aassapa  is  *«;  n»:t.  for  staapla,  if 
•a  Data  0  aassapa  *0  Dftoa  1009,  till  Dftaa  still  Data  to  D# 
txaassitta*  Dot  tDa  1020  cf  tDaa  *111  Da  aapty.  TDia  alta- 
atloa  sap  frapsoatly  occst  «itD  tit  laat  fraaa  of  a  fils. 
Id  as  sat  sites  tDa  trassfar  rata  of  ttaaraat  la  ao  Dipt  fid 
009a D lea  par  atcood)  tiia  is  aot  mf  coatlf  as  far  aa  tiss 
is  coacaresd.  So  it  ctotali,  tDa  Di|Daat  fraaa  aita  is  still 
tDa  aost  officlatt  a 0009  fits*  aita  ftaaaa. 


Ui«t»  f;i»M  eetti  M  **o*  u  tl#  rrmr«», 
to  Mk«  i*  «o;«  •ffiettit,  i»«im  iiotsoc  u  fti*  Ktui» 
K9«t4M  cut y  $0;  4  fu«e  ff«M  of  IWD 

n«  frit*  l««tl  t»  mu  pro*  root  tut  M  1 m  *•#*  1*  *♦* 
teetl<4  mt  i»;i  (;••»  Umu  m 

a.  am  um  a«ita 

l«  M«  W('W»M  Mtflf.  H*  kfflSff*.  n«  |f«**9tf0 

cHKfi  m  um»l  fact  4  'tmul  n*t  u«t  u  >: m  »:  *41 

IffllMl.  IfeffN  Of  mi«  4  94f  14i  *9  M  U4«l  1**4 

Hifftl  ff rot  4*  «ai  iota;** 2  ao  m  o*oc«t*9  it  it# 

94 f  0491, "090001  •  Tlf  fOUt  10ft  40  4414  IfOltlf  !l  4  4*  tftlOO 
C04t  It#  *:p4*>*  (M9  Oil.  )l  «  ftui  *.4404  44  ’.»M%  IfftM 
Mftff  tkitff,  4  fti  000044  9  4»l  049C0144  I*.  Oft  foe  t  VftfttOif 
U«  Ollf  0000449  tlot  npoto*  ooooot  OCOOOtO  if  *40  UfUM^ 
or  0009070. 

h  040  COO 1 040  f ICO  Ilf  flCOt  HIM  »ff  940  tffiff  04*00 
Iftfl  00 C 4  OMC  440019  4409  «  fCOff 44  99  fifCflft  Ilf  00004094 
4441  4fO  499X09049  «0  410*  tUCt  40ft  4444  944  iff!  00*11 

COO! CO  999  >9  440  tlMflft  lllOittCf  COftOOff Ottlff .  140X9 

44 9  40  40  40O44OC  9X09900  941CI  Oil*  COO t <10410  tlf  000X4. 

C041  COl  140  MOOtfO  tCOfffiC  409  4049X0  4  40  UlOtlOttlOf  Ot 
440  400900104  Ot  140  COOOOt ICO  1104  1449901 . 

ft  440  fOllOOltf  aftifirtflf*  •  4  If  4  lOOO I  944144  Off  l4f 
CDOt  9 1444 Off  fCOftOO  409  140  OOOf'9  ptOffftO  14  pt  041 9o9 .  *9 

•9019  COtff  9*144.  tCOO  909  0  9  1M  Oft 91441 9f  ftfftflf  «U1  #0 
CtlUl  •Ot 4090 oil*  4*9  too  490t  *4  fMfttt  9111  N  CftllOl 


T4o  prof  too  941  cl  dll  potffort  iho  flit  tool  o*m* 
plot !•*  Mooli  lo  olio  to  porfoto  to#  ffollooitf  )^«ti*.l«if: 


U  fi«»n  to  itlo  o  ••9*tU«*  i  *f 

«M»»Ur.tM  Hill  IM  »|UW  Mil)  »*J  M»t«  *** 
in*,  until  mn. 

f»ce«4.  it  m»i  f**ci  in  tiUi;tf  ®f  uj>  uetmi 

WMI«t*  |»<  tilUitli  *M  iMf  l«  *****  I  t|i:t  »« Ml  t*  tl 

•4l:«M«4«i*4  i»«  mi4  im  it  im  uk»ki»i*  tftr. 

m:4«n  iui  ei«i  tlui  m«;  i»«  wtumt  it  §*•! 
i«  il«  tl»0*J  «*4  4o  n  u  it  tf(;nni  it)  tui  *«f, 
Mc«r4u«  it  tfiohM  intnr.M. 

f  «M  Iltifli  IMI  *  Ul  ft  lit*  »»*;«  M  ittfi  If 
f|}*«  iwti  liitf  tit  mctitl  mnntnif  t«4  mi  mi 
ofiot  it*  otaor. 

«.  of  Cttm  (to t  fktft  it  •niifttli* 

ft  ot4ot  (Mi  t tit  *t of ftt  itt*  eotiroi  «ttf  (it 
MfMi*  «Mf*t  fntriiti  * M  not  ttt  iiiitt  »r  it*  t«i«or* 
#•  ttf  ttttti  |  !•*•  to*  ••  tf  tint  in  ctnmif  !»***«  it. 

Mil  Mil  1*000(9  9tOf  lift  tlfc  »  i  chftf  9t  CftOtO*  ttftl 

flat*  tit  «m4.  FI*  difitf  *t;c%  tit  im!  coaiti**  t  »nii 

Of  JJ  Hlft  Mllldl  f  tOO  M  to  I).  ttf  FCOfftt  it  It* 

m/ tas  uttfiiMit  o*f  Mew  in*  olttior  ul  rotl«  *o% 
or  toooi  **t  >t  not*  floo*. 

ft  if*  Ft*  tinifi  •  H  euftiMil  it  f  tMtt  **f 
ttOf  ttf (**009  «•(  toot* ft  froo  «  t*  l.  «t«ft  ttf  Of*  of 

Ulll  ttOf*  &*  tol*o4.  It  It  *****  (Ml  It*  lilt  19  (Oft** 
•***«,  too  Itffoi  it  Meetifillr  m»  no  toi«*tt.  *  toot 
too  tot  fit*  10  009  m  totot  If  HI  iMtltll*  Ftoortt*  t* 
•ill  lo  mt  lttot. 

(91  ttf  Mt«  voile *9  tlttlif  91*1  It*  *F*9*t  etc 
«C«OF«  t*i  *****  «t  90  *110  Iftfl.  4*«o*o t*  Hit  ttlltf  t»F 
10  OOOlIf  otfolfoi  90  •  1*  tf*  fttotof  If  «M»  If  tlliOlM 
tor*  fltfo  it  **ot  toooort,  tti  outfit*  no  fioottiott*  of 
let#  «09*  *9(0090(0*  Hot  t  to  too*  1*  tt*  *t Off 4*. 


Tbs  Uivtmoc  to  u«:  assbar*  io  iopoosd  das  tc 
•it  mim;  of  cesoeo  ***#t  fists  tvtilsbls  is  nx/tss, 
UMlf  bb  (Ui*  srrtsood  is  ^rw  olostsrs  of  12  fla^s  saci. 
M«;  tbs  evrtn  ti*  systss  ess  bo  •ipi;d<4  to 

mt«  *  NltMS  of  *7  IMn. 

Tbo  Uni  fro#  *7j  tbrooqb  Mi  t?«  i««d  to  indi- 
»(•  a*  «M(  who  corsoopooio  to  ««ch  of  thoo  hts  is 

ooosor  rood?  to  Mid  Mob  to  tho  80S  shied  Ms  soat  a 
ccssaad  to  bio. 

ftosro  o.i  t  Hast  rat  os  tso  aso  of  reasoa  osant 
flsos  tot  lot st  procost  coos  tales  ti as. 

b.  8oo  of  sailboats  it  *ftssraolt* 

Tit  eoooo&ictt  loo  of  tbs  "Ethsra«it*  prc?raa 
ottb  lit  *«c«eoolt*  protests  io  ocstasod  throoja  oaiibosos. 
•  rocolvod  0000091  la  Idas tlf ltd  tad  pot  la  tbo  tailbox  of 
ut  ooo*  to  oioo  it  io  oddrooood.  Too  0000090  io  tits  pic  bad 
09  1*7  too  "Ofloroolt"  for  fortbor  oUborotioo. 

fact  toot  boo  010  ooo  oolibos  which  stay*  thoro 
00  I004  00  tbo  corroopeodia9  *Ooara«lt*  lo  r  seal  09.  fhaa  s 
*toaroalt*  profna  tors  la  a  tot.  too  corcaspoadla?  oallbos 
dlsappaars.  Pi9oro  o.l  do  plots  tbo  lottcprocooo  coaooclca- 
ties  If  oooto  of  oolitotoo. 

c.  too  of  ast'o  10  "Kthoroalt* 

•©call  toot  oo  hoyschroaoao  Systaa  Trap  lo 
oath  1 09  olio  hot  00  lo  tore  opt  shies  troooforo  cootrol  ot  • 
spool fiod  ploco  of  tbo  preqras  shaa  a  opocific  stoat  occurs. 
"Ytiotoslt*  osoo  *9701910*  oystoo  sorties  to  cootlssoosly 
list  os  to  tbo  OtlOiO  board .  This  systos  sartisa  sots  tbo 
•tthatoalt*  1st©  s  rocoiso  so 4#  is  «hieh  tho  pro?raa  doss 
sot  volt  for  tho  osoot  to  occar,  b«t  coatiasos  corosl  txtcs* 
tlos.  lo  scos  as  1  00*0090  arrlsos  at  tho  mot)  board,  se 
iotortspt  lo  trl99«t«d  aod  cootrol  of  tbo  progrsa  is 
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transferred  to  a  location  which  can  be  prespecified  as  ar. 
input  parameter  of  the  "Systqio".  In  this  way  rhera  is  nc 
overhead  due  to  the  need  of  listening  ro  the  network. 

d.  "Ether mult"  Algorithm 

&  high  level  algorithm  of  program  "Ether mult"  is 
given  below.  This  algorithm  does  not  go  deep  into  details, 
because  its  purpose  is  to  help  the  reader  realize  quickly 
what  are  the  main  operations  of  the  program.  A  detailed 
description  of  the  program  and  explanation  of  the  code  is 
given  in  the  next  chapter. 

At  this  point  it  should  be  mentioned  that  the 
program  uses  a  message  queue  in  which  the  incoming  messages 
are  stored,  in  a  FIFO  order.  Also  there  exists  a  user  infor¬ 
mation  table  which  contains  inforaation  pertaining  to  the 
current  users. 

The  high  level  algorithm  is  as  follows: 

1.  Make  accessible  the  common  event  flag  cluster  to  the 
program. 

2.  Clear  flags  #64  through  #84 

3.  Establish  communication  channel  with  MHO  10 

4.  Set  the  "ear"  of  the  system  to  listen  to  the  network 
and  specify  where  program  control  should  be  transferred  when 
a  message  arrives. 

5.  When  a  message  arrives, put  it  in  the  message  queue, 
send  acknowledge  to  the  source,  and  reset  the  "ear”  of  the 
system. 

6.  Take  the  first  message  from  the  message  queue. 

7.  Check  whether  the  user  to  whom  this  message  is 
addressed,  is  currently  authorized  to  use  the  system. 

8.  If  he  is  not: 

-  send  a  caution  message  to  the  message  source 

-  disregard  the  message 

-  rearrange  the  message  queue 
Else 
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-  rearrange  the  message  queue 

-  put  the  message  into  the  appropriate  mail  box 

-  if  this  is  the  first  message  for  a  VAX  user: 

-  update  the  user  information  table. 

9.  Check  which 'users  have  a  ready  answer  and  send  each 
answer  to  the  proper  destination,  using  a  round  robin 
scheme.  According  to  this  scheme  each  user  is  serviced  for 
as  much  time  as  it  is  required  for  one  frame  to  be  sent,  and 
acknowledge  to  be  received.  After  this  the  next  user  is 
serviced. 

10.  Check  the  status  of  the  network  and  update  the  user 
information  table  if  necessary. 

11.  Repeat  steps  5  to  11. 

2 •  Program  "Ps^rmult" 
a.  Program  tasks 

A  user  which  uses  an  MDS  terminal  to  access  the 
VAX/vas  environment,  is  a  virtual  VAX/VMS  user.  As  a  VAX 
user  he  must  be  first  authorized  in  order  to  use  the  system. 
This  authorization  is  granted  by  the  Loginout  VAX/vhs 
procedure. 

Since  currently  the  Loginout  procedure  can  be 
invoked  only  from  a  VAX  terminal,  there  is  no  other  way  for 
a  user  but  to  use  a  VAX  terminal  in  order  to  log  on.  In 

addition,  because  he  intends  to  use  the  Ethernet  multi¬ 

plexing  as  well,  he  has  also  to  get  a  second  authorization, 
to  enter  the  network.  So  after  a  user  has  succesfully  legged 
in  the  VAX/VHS,  he  must  run  a  program  which  will  enable  him 

to  enter  the  network.  This  program  is  the  "Usermult" 

program. 

"Psermult"  checks  the  common  event  flags  #73 
through  #81,  that  represent  the  users,  and  finds  out  which 


of  them  are  aot  already  set.  Then  it  associates  rhem  with 
user  numbers  and  prompts  the  user  to  select  one  of  those.  If 
the  user  chooses  a  legal  number,  authorization  to  enoer  the 
system  is  given  and  the  corresponding  flag  is  raised  tc 
notify  "Ethermult"  about  the  new  status.  If  the  user  made  an 
invalid  entry,  the  pregram  gives  him  another  chance. 

Commands  like  DIR,  TYPE,  PRINT  etc.  which  are 
entered  from  an  MDS  terminal  and  pertain  to  a  specific 
user, must  be  executed  and  the  results  should  be  sent  back  to 
the  DOS  terminal. 

The  distribution  of  the  messages  which  arrive  at 
the  NI1010  board  is  performed  by  program  "Ethermult",  which 
places  each  message  into  the  appropriate  mailbox,  very  much 
like  a  mailman  does.  But  this  requires  that  there  exist  such 
a  mail  box.  So  the  first  thing  that  "Osermult"  should  do, 
after  the  user  has  been  accepted  by  the  system,  is  to  create 
this  ussr*s  mailbox  and  establish  a  path  of  communication 
with  it. 

After  the  mailbox  is  created,  "Osermult"  should 
check  constantly  whether  a  message  has  arrived,  as  soon  as  a 
command  arrives,  the  program  calls  "Spawn"  system  procedure 
which  executes  the  command. 

a  more  efficient  way  of  checking  the  mailbox 
would  be  to  set  the  "Osermult"  in  receive  mode  and  then  put 
if  in  hibernation  while  still  in  the  receive  mode.  as  soon 
as  a  message  arrived,  an  interrupt  would  be  triggered  to 
wake  up  the  process  in  order  it  to  continue  execution.  This 
interrupt  driven  scheme  is  more  efficient  for  multiuser 
systems  because  this  way  a  time  slice  is  saved.  However,  for 
reasons  of  simplicity,  it  was  decided,  to  implement  the 
first  method. 

The  output  of  the  routine  "Spawn"  is  placed  in  a 
file  which  will  be  used  by  "Ethermult",  to  send  the  answer 
back  to  the  calling  HDS.  Then  the  program  checks  the 


mailbox  again  for  the  next  message.  The  message  traffic 
among  FAX  processes  is  illustrated  in  Figure  4.3. 

b.  User  Mutual  Exclusion 

It  may  happen  that  mors  than  one  user  requests 
access  to  the  network  at  the  same  time.  In  such  a  case  two 
users  may  select  the  same  user  number.  If  this  happens  many 
problems  and  confusion  will  be  created.  So  there  must  be  a 
way  to  avoid  a  situation  like  this. 

The  solution  to  the  problem  was  again  a  common 
event  flag.  Specifically  the  very  first  thing  "Usermult" 
does  is  to  access  the  event  flag  cluster  and  check  whether 
flag  #84  is  set.  If  it  is  so,  it  means  that  another  user  is 
requesting  network  service  at  this  moment.  Thus  the  program 
should  wait  and  keep  checking  flag  #84. 

As  soon  as  this  flag  is  reset,  the  requesting 
program  raises  it,  so  that  no  other  user  will  interfere 
until  a  user  number  is  obtained. 

c.  Protection 

How  another  issue  is  brought  up.  If  no  protec¬ 
tion  is  provided,  a  user  who  has  control  of  event  flag  #84, 
is  enabled  to  prevent  any  other  user  from  initiating  a  log 
in  procedure.  The  solution  which  was  adopted  for  this 
problem  was  the  use  of  a  watchdog  timer. 

A  timer  which  is  set  at  10  seconds  is  energized 
when  the  user  is  prompted  to  make  his  selection,  and  a 
message  on  the  screen  notifies  the  user  that  he  has  10 
seconds  to  select  a  user  number.  If  he  does  not  make  a 
selection  within  10  seconds,  flag  #84  will  be  reset,  and 
his  program  will  terminate. 

The  program  also  resets  flag  #84  and  terminates 
execution  when  the  user  makes  two  consecutive  wrong  selec¬ 
tions.  This  way  he  cannot  prevent  other  users  from  logging 
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in,  by  making  iadafiritely  invalid  selections  just  befcr® 
tha  10  seconds  expire. 

Next  a  concise  algorithm  for  the  "Oserault" 
program  follows. 

"Sissciuit"  iLiafiiiiia 

1.  Access  event  flag  cluster 

2.  Check  flag  #84 

3.  If  set  keep  checking 
Else  set  it 

4.  Check  flags  #73  through  #81 

5.  Put  those  flags  which  are  not  set  in  an  array 

6.  Associate  these  flags  with  user  numbers  and  prompt 
the  user 

7.  set  the  timer  for  10  seconds 

8.  In  case  of  wrong  selection  give  another  chance 

9.  If  time  expires  without  selection  of  user  number 

reset  flag  #84 
stop 

Else 

cancel  timer 
accept  user  number 
reset  flag  #84 

10.  Create  mailbox  and  establish  path  of  communication 

11.  Check  the  mailbox 

12.  If  empty  k6ep  checking 
Else 

call  "Spawn”  to  execute  the  message 
put  the  results  in  a  fils 
go  to  11 
End  Osermult. 


t.  usiz*  ar  i as  mxiEUUis  iuzu 


In  the  previous  chapter  the  high  level  design  of  the 
aultiplaxing  systea  was  given,  without  details  on  the  opera¬ 
tions  of  each  aodule. 

This  chapter  explains  in  detail  the  operations  of  the 
aair.  prograa  and  each  subroutine.  In  reality  it  constitutes 
the  docuaentation  cf  the  software.  Also  included  are 
coaaents  which  explain  to  the  reader  why  certain  decision 
were  aade. 

1.  P  BOG  BA  fl  'BTHEBBOLT'  DETAILED  DESIGH 

l&ilafelaa  aai  Bflifl  siiassasia 

The  variables  which  art  declared  in  the  prograa  are 
in  alphabetical  order  the  following: 

Ackflag  :  Variable  to  denote  whether  the  received 
inforaation  is  an  acknowledge  or  a  real 
aessage. 

Alpha  :  Array  of  characters  with  9  eleaants,  which 
contains  peraanently  the  noabers  froa  1  to 
9.  It  is  used  to  solve  a  technical  prcblea 
in  concatenation  of  characters.  The  prograa 
assigns  very  frequently  the  carrent  user 
nuaber  as  an  index  for  the  aailboxes  and 
reply  files. But  ia  Fortran  we  are  cot  able 
to  concatenate  characters  with  integers.  So 
the  trick  which  was  used  was  the  following: 
Instead  of  saying  Sailbox//Oserauaber  which 
for  exaaple  aay  be  Hallboxl,  we  say 
Bailbox//il  pha  (usernuaber)  that  aeacs 
Hailbox//Alpha  (3)  ,  which  is  Sailbcx3.  The 


lattar  fora  is  accaptabla  by  *. ha  Fortran 
ooapilar. 

C  :  Soabar  of  usars  carcactly  ie  tha  systas.  It 

can  taka  valnas  froa  1  to  9. 

Cob  :  Array  of  81  by tas  aaad  to  atora  tha  first  81 

ayabcla  of  a  racaivad  Etbarcnt  packat.  Its 
six  a  ia  adaqaata  to  bold  aay  meowing 
nx/ftt s  coaaacd. 

Condition:  Byta  osad  as  a  boslaan  variabla  to  dacota 
tha  aslstanca  of  a  condition. 

Of lag  :  Boo la an  variabla. 

PI  :  Tha  naaa  of  tba  coaaoa  block  which  coataias 

variabla  ackflag. 

Flag  :  Osad  as  Boolaaa  variabla. 

Iadl  :  Saaa  of  tha  coaaoa  block  la  which  variabla 

•■otyat*  la  fooad. 

Ind2  :  Saaa  of  tha  coaaao  block  which  coataias 

variabla  'Tlaaa*  • 

Xoab  :  ka  ootpot  paraaatar  of  SyaSglow  roatina.  Its 

valaa  da tar  ala as  vhathar  tha  oparatloa  was 
soccasfal  or  not. 

Oqaaaa  :  Array  9X81  which  storas  tha  lnceaiag 

coaaaads  ia  a  FIFO  fashloa. 

BBpackat  :  Stands  for  aala  racaiva  packat.  It  ia  aa 
array  of  1522  bytas  which  it  dados  tha 
lacoaiag  aasaaga  plan  tha  hoador. 

■  :  Variabla  which  danotaa  tha  first  aapty  slot 

of  tba  aasaaga  gaana. 


»ick*8 

iOt  yet 

Pack 

Boa 

Boaflay 

Blot 

Table 
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:  Indicate*  the  Banner  o i  tfc*  cktroel  zi 
coaaasieatioe  akick  it  eaaiynel  to  »  Muct 
by  SyaAaaaiyc  ayetaa  routine. 

:  Array  of  ictayera  aitk  U9.  !*» 

alee  ant*  correapocd  to  oet  of  tke  mre  oaara 
and  tkay  a  to  ueed  to  indicate  abetter  tke 
tranaalaaioa  of  all  tka  free**  of  ae  neater 
flla  of  a  ener  kaa  oaao  conplttel  or  not. 

i  Baaa  of  coaaoo  block  eoetniAiay  varUdla 
'Syeeee'. 

t  Byte  akoalay  tka  roa  of  tke  table  it  akick  « 
aaar  eaabar  aas  foacd. 

i  Byte  need  aa  boolaaa  variable. 

j  Baae  of  eoaaoa  block  akick  cental ee  variable 

t  Array  of  byvea  oitk  dlaeatloae  On*.  Bear 
la  for  nation  la  atorai  la  this  table.  tka 
flrat  colon  a  contemn  tka  aaer  naeber.  Tka 
eecoad  colaea  becoaaa  a  ken  tke  aaer  baa 

aa  aaaaer  tkat  kaa  not  beea  nee*  yet,  and 
*0*  if  tkare  la  no  file  aitk  tka  aaaaer  of 
tkle  aaar.  colaea*  1  and  a  contain  tke 
aoarce  addreaa  of  tae  laet  aeanaye  add  reeved 
to  tkia  aaer. 

t  Array  of  iateyera  vita  dieeaeiea  it9.  tack 
oae  of  tke  nine  alaaaata  tpeclfie*  *  anit 
Banker  in  akick  tka  aaever  file  of  oae  neat 
aill  be  opened.  Tka  valaa  of  tke  elaeeata  of 
array  'Tinea*  akoali  be  yteater  tkaa  tl. 
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It  this  vis  not  t ha  last  fraaa,  tha  fils  stays 
opanad  so  tbit  tbs  read  index  is  not  reiottd  from  the 
cor r set  position.  Than  control  returns  to  routine  Expert 
and  iron  there  back  to  tba  sain  prograa. 

is  a  final  stop,  tba  sain  prograa  calls  tba  subrou- 
tins  •Statute  bach*  which  ssaaiaas  tha  cosson  flags  and  if 
it  finds  any  discrapatcy  with  tba  axisting  status,  it 
epdata*  tbs  star  iaferaation  table  tad  tha  aoabar  of  currant 
•Mrs.  than  tba  proems  rapaats  tha  sass  cycla  idafinitaly. 

i  bieraresy  ditgrts  of  tba  progras  "Etharsolt"  is 
giaas  in  figure  4.1. 

ft.  •MtftlftU*  IBftllD  BtSXOt 

I,  timiltl  sad  Data  Itractaraa 

Tba  asrlaaiaa  and  tba  data  atractares  which  ara  usad 
U  ptegsao  •tsaroalt*  are  gitaa  bal»«t 

alpha  i  array  of  i lsaaaloa  irt.  Ua  elaaenta  ara 
pstsaaaaily  tba  aaabars  froa  i  to  9.  it  la 
as  ad  for  tba  nm  rasaos  as  array  alpha  in 
prog  too  Ctbacs alt. 

Chaos  si  i  at  say  ««g  abieb  eaatalsa  cbaaasl  oasbara 
soft  aapeallag  to  soar  aasbsca. 

Css  t  attsy  sf  «•  iytoa  seal  to  stera  a  raealaad 
oa  eased  fooaoagsy  froa  tba  esrraapoadiaa 
mites  atrlppai  sff  froa  its  header. 

teed  t  logic  satiable,  imi  it  is  i  it  imm  tba 
•rat as  is  fall  af  seats. 

tsetse*  ;  Oast  sestet .  if**  aein  css  taka  ealaaa  froa 
*  «a  a. 
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qvr •  S.i  Hi*rorchy  Diagram  Of  Program  ETHERMULT 


The  included  macro  routine  ”Siodeg"contains  all  the 
definitions  of  I/O  functions  (see  Appendix  C)  . 

2.  Wain  Bod v 

The  program  starts  by  calling  subroutine 
"Authorize”.  "Authorize”  has  as  input  parameter  the  user 
number  and  returns  the  variable  "Load”  with  value  1  if  the 
system  has  already  9  users  and  it  cannot  accept  any  new  ones 
at  the  present.  Detailed  description  of  "authorize”  is  given 
in  the  next  subsection. 

If  the  system  has  accepted  the  user,  the  program 
proceeds  with  the  creation  of  a  user  mailbox  and  establishes 
a  channel  of  communication  with  it,  using  the  system  routine 
"syslcrembx".  Then  it  keeps  checking  the  mailbox  for  any 
messages.  When  a  message  arrives,  it  reads  it  and  puts  it  in 
the  array  "Com".  Routine  "SysSqiow"  is  used  for  this  task. 

Next,  the  program  makes  visible  to  its  environment 
the  cluster  which  starts  with  flag  #64.  This  is  needed 
because  the  program  must  set  a  certain  flag  when  an  answer 
is  ready. 

After  that,  the  program  calls  routine  "feedfile". 
This  routine  places  the  command  without  its  header  in  the 
file  "mail.com"  which  will  be  used  as  input  in  "LibJspawn” 
routine. 

Subroutine  "Spawn"  is  called  next.  "Spawn"  has  as  an 
input  parameter  the  user  number.  It  executes  the  command 
and  puts  the  results  in  a  file  which  is  indexed  by  the  user 
number.  Description  cf  "Spawn"  is  found  in  subsection  4  of 
this  section. 


After  completing  this  cycle,  the  program  goes  back 
to  read  the  mailbox  and  proceed  as  before. 


3 •  Subrou tine  " Author! z e " 

This  routine  checks  the  common  event  flags  #73 
through  #81  to  find  out  what  user  numbers  are  available  for 
a  new  user.  Then  it  interacts  with  the  user  in  order  to 
assign  a  number  to  him.  If  the  system  is  full,  it  returns 
the  variable  "Load"  with  value  1.  la  such  a  case  the  program 
terminates  execution. 

The  routine  starts  by  assigning  a  channel  to  the 
terminal.  This  is  dene  because  the  "SysSqiow"  routine  is 
used  to  read  a  user  number  from  the  terminal.  Of  course, 
the  read  statement  instead  of"Sys$qiow"  routine  could  be 
used,  but  in  this  case  the  use  of  the  watchdog  timer  would 
be  impossible.  With  the  read  statement,  the  program  would 
wait  indefinitely  until  a  user  number  was  entered.  If  the 
user  did  not  enter  a  number,  he  could  inhibit  any  other  user 
from  logging  on.  Now  however,  we  are  able  to  set  a  time 
limit  and  if  the  user  does  not  enter  a  number  within  the 
available  time  period,  the  program  stops  execution. 

Next  step  is  to  invoke  "Sys$giow"  routine  to  start 
up  the  process  of  I/O. 

Then  the  proper  initializations  are  made. 
"Plagarray"  is  an  array  which  will  hold  the  available  user 
numbers  in  order  to  display  them  later  on  the  screen. 

Variables  "Cancel",  "Condition",  and  "Load"  are  used 
as  Boolean  variables. 

Next,  the  routine  aguires  acces  to  the  usual  common 
event  flag  cluster  and  determines  whether  another  user  is 
using  the  system  (ie.  is  requesting  a  user  number) ,  by 
checking  flag  #84  .  If  this  flag  is  set,  it  means  the  system 
is  busy  and  the  program  keeps  checking  until  the  flag  is 
reset.  The  variable  "Condition"  is  used  to  inhibit  the 
program  from  writing  the  message  on  the  screen  in  each  loop. 


If  the  flag  #84  is  reset  that  means  the  system  is 
available.  So,  immediately  the  program  sets  this  flag  in 
order  to  notify  the  ether  potential  users. 

Next  step  is  to  check  flag  #73  through  #81.  Those 
flags  represent  users  from  1  to  9.  The  numbers  which  are 
represented  by  the  flags  that  are  reset,  are  put  in  the 
"Flagarray" .  If  after  the  examination  of  the  flags  the 
"Flagarray"  is  still  empty,  this  means  that  the  system  is 
full.  Then  variable  "Load"  takes  value  1  and  the  routine 
returns  control  to  main  program,  after  it  has  printed  on  the 
screen  the  message  "system  full". 

If  there  are  available  user  numbers,  a  message  is 
printed  on  the  screen  prompting  the  user  to  select  one  of 
the  user  numbers  which  follow  on  the  screen.  Immediately  the 
timer  is  set  at  10  seconds,  and  the  "Flagarray"  is  displayed 
on  the  screen. 

After  that,  the  program  goes  to  a  read  state.  If  a 
number  is  entered  within  10  seconds  the  timer  is  cancelled. 
If  not,  control  of  the  program  is  transferred  to  routine 
"Abort"  which  resets  flag  #84  and  stops  execution  of  the 
entire  program. 

After  a  number  is  entered,  the  program  checks 
whether  it  can  be  feund  in  the  "Flagarray".  If  it  is  not 
found  there,  the  counter  advances  to  count  one  misselection. 
The  user  is  notified  for  his  mistake  and  the  program  pres¬ 
ents  again  the  available  user  numbers  on  the  screen.  Then  it 
proceeds  as  before.  If  a  second  misselection  occurs,  the 
program  transfers  control  to  subroutine  "Abort". 

If  the  entered  number  is  found  in  the  "Flagarray", 
it  is  considered  a  legal  one.  Then  the  flag  which  represents 
this  user  number  is  set,  the  flag  #84  is  reset  leaving  the 
system  available  for  use  by  other  users,  a  message  is 
displayed  on  the  screen  to  notify  the  user  that  the  number 
has  been  accepted  and  control  returns  to  the  main  program. 


4.  Subroutine  " Spawn" 


Routine  "Spawn  "  executes  the  DCL  command  which  is 
entered  from  an  MDS  terminal. 

It  starts  by  translating  the  logical  name  of  the 
input  file  "Sail. com",  into  a  physical  name.  This  is  neces¬ 
sary  in  order  that  this  file  be  accepted  as  input  tc  the 
"LibSspawn"  procedure. 

Then  the  file  is  opened  and  read.  Two  special 
commands  are  examined  separately.  The  "Sdit"  and  "Logout" 
command.  It  was  found  that  the  "Edit"  command  in  order  to 
function  properly  must  be  put  explicitly  as  input  parameter 
in  "Lib$spawn".  So,  the  first  letters  of  the  file  "Mail.com" 
are  examined  and  if  they  form  the  word  "Edit",  the 
"LibSspawn"  is  called  with  an  input  parameter  the  string 
"Edit"  explicitly  and  not  the  file  "Mail.com"  which  contains 
this  string. 

The  case  of  "Logout"  is  examined  in  order  that  the 
termination  of  the  corresponding  "Osermult"  program  occur, 
and  an  update  of  flags  is  effected.  This  will  enable  the 
main  program  to  update  the  user  information  table  and  the 
number  of  current  users  in  the  system. 

The  rest  of  the  commands  are  executed  normally  and 
the  results  are  placed  in  a  file  called  "Reply"  concatenated 
with  a  user  number.  After  that  control  is  transferred  to  the 
main  program. 

Figure  5.2  illustrates  the  hierarchy  of  "Osermult" 


program 


vi.  gagsMsiass 


A.  F BBS BIT  DESIGH 

The  principal  goals  of  this  thasi3  vara  sat.  Tha  sulti- 
plexing  of  tha  111010  board  is  considarad  to  ba  afficiant 
and  though  tha  developed  software  can  ba  currently  tested 
with  only  two  users  {working  on  tha  two  80S  terainals) ,  it 
should  perfori  equally  wall  with  all  nine  users.  Of  course, 
sore  than  nine  users  can  ba  accoaodated,  if  sinor  changes 
are  introduced  in  the  progress. 

At  present,  tha  progress  "ETHEBBOLr*  and  "OS EH8ULT"  are 
available  in  VAX/VBS  public  user  account  under  user  case 
"IHTEBLil"  with  password  nTBSN.  Tha  HI1010  Ethernet 
Controller  Sultiplexing  Osar's  Banual  is  also  available  in 
tha  file  BIBOI.DAT.  The  content  of  this  file  is  exactly  tha 
saae  as  the  content  in  Appendix  D  of  this  thesis.  Osars  who 
want  to  have  a  feeling  of  how  this  sultiplexing  systes 
works,  can  gat  a  hard  copy  of  this  file  by  siaply  logging 
into  the  VAX/VBS  under  osar  nasa  and  password  aentioned 
above  and  printing  the  files.  Than  the  steps  in  the  annual 
oust  be  followed. 

The  files  containing  tha  software  of  this  thesis  and 
residing  in  the  public  user  account  are: 

ETHEB BOLT. FOB  (source  coda) 

ETBEBBOLT.EXE  (executable  code) 

This  is  the  sain  progras  which  does  the  sultiplexing  of 
the  RZ1010  board.  Bben  it  is  run,  it  puts  the  IX 10 10  board 
in  a  receive  soda  and  starts  a  loop  until  a  sassage 
(currently  originating  fros  an  BOS  terainal)  ,  is  received. 
If  this  aessage  is  properly  encodal  and  contains  a  legitl- 
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sat*  friN,  tba  systsa  rssponds  t>y  transacting  via  th* 
H1010  an  ansvsr  to  thv  originator.  Zf  this  is  *  bad  fran* 
it  discards  it. 

Tbs  ansvsr  transsittsd  say  ba: 

(a) .  Ons  ssssags  (trass)  to  tbs  originator  stating 
sitbsr  that  ba  bas  not  tbs  aathority  to  sntsr  tbs  systss  or 
that  bis  ssssags  bas  not  tbs  propsr  tors. 

(b)  .  i  ssriss  of  ons  or  sort  frasss  containing  tbs 

ansvsr  to  bis  ssssags. 

oskbbolt. fob  (son res  codsi 
OSEBBOLT.  E1B  (sxacuttbls  cods) 

This  is  tbs  pro  gras  sbicb  sost  bs  running  for  sacb  sssr 
in  tbs  systss.  Xt  takas  csrs  of  tbs  sssr's  raquasts,  by 
prodocing  sn  ansvsr  fils,  sbicb  tbsn  is  transsittsd  by  tbs 
"BTBIBBOLT"  vis  Etbsrnst  to  tbs  originator  of  tbs  rsgssst. 
It  also  contains  tbs  cods  that  provides  author isatios  for 
sacb  ssv  ossr.  It  can  bs  tsrsiaatsd  by  tbs  rssots  sssr  vhsn 
tbs  cosssnd  "LOCOOT"  cr  "LO"  is  asst. 

«.  POTOIB  DBS  10* 

Tbs  sbovs  progrsss,  provids  tbs  possibility  for  ssvsrsl 
rssots  assrs  to  tsks  sdssntsgs  of  tks  ssjority  of  tbs 
HX/TBS  fscilitiss.  Tbsss  BOS  tarslnals,  assenting  TBS 
cos  sands,  set  liks  virtual  tsrsitsls  of  fAI/VBS.  To  scblsvv 
s  fall  virtasl  tsrsinsl  psrforssncs  though,  s  asst  should  bs 
ibis  to: 

1.  Oss  tbs  tCBSPBC  systss  ssrvics  to  erssts  s  dstscbsd 
procsss  that  sill  assents  tbs  lOGIDOT  proesdurs.  is  "input" 
sad  "output"  par  as  stars  of  this  pro  csss  should  bs  dsfinsd, 
instssd  of  s  physical  Til  tsrsinsl,  tvo  filss,  oas  for  tbs 
input  and  tbs  othsr  for  tbs  output  of  tbs  LOOtsoor.  Thus, 


it  will  aa  pcasihla  fer  taa  lOGiaoor  procadorv  t)  h«  itwtkwi 
froa  I/O  ItticM  otbwr  that  a  fl(  ttraioal  ft. q.  sjs 
tactical).  rbia  sboald  ba  faaaibl*  vitb  tha  ci«  »»r*ics  of 
VAX/vns.  Tha  proqraa  which  haa  aaaa  work*!  cat  by  tht 
aothora  of  thia  t baa la  laris?  tht  tiaa  paritf  ciwy  *«rt 
trying  to  achiava  thia  90a 1 ,  ia  praaattad  io  ipptslit  X. 

2.  Bxaceta  tha  LOQiSd9T.txt  fila*  for  loqqia?  is  tat 
fhl/vas  aya*.a«#  froa  hit  taraiaal  withoat  hhvitf  to  ras  tha 
"Oaaraolt*  proqraa  fsca  a  tss  taraiaal. 

3.  Chasqa  tha  "Oaaraolt"  proqraa  by  dtlatiaq  tha  *SPhff" 
aabrootiaa  a iaca,  if  ha  aaceaada  la  tha  abort  two  90a la  ha 
will  hava  d tract  accan  to  tha  coaaaad  lasqaaqt  iatarpratar. 
Thaa ,  ovary  fas  coaaaad  00a Id  ba  asacatad  aa  if  it  vaa  typai 
froa  a  raal  fhl/vas  taraiaal*  Tha  aaly  dlffarasca  woald  ba 
that  tha  lspat  aad  oatpat  of  tha  LOOXSOOT  procadara  wot IS 
not  ba  a  tatalaal  bat  a  flit. 

a*  Spaclal  prlvllaqaa  aaat  ba  qraatad  to  •Ttbaraalt* 
proqraa  ia  orlar  to  hava  accaaa  to  tha  varioaa  diracteriaa 
who;  a  "atPL.DAT"  filaa  art  qaoaratad.  ta  coopt  rat  ioa  with 
fil-11  profaaaloaal  staff.  it  caa  ba  dataraiaod  which  privi- 
laqaa  ara  aacaaaaxy. 

S.  Xatrodaca  a  variabla  laaqta  fcaaa  for  tha  aatvorh 
coaaaaicatioas*  for  tha  aaka  of  afficiaacy.  Thia  wo  all 
iaply  chaaqaa  to  both  thia  aad  Stottar'a  thaaia*  proqraaa. 
for  thia  thaaia  tha  ebaaqo  viaaalitad  lai 

laataad  of  Oaclarlaq  a  fraaa  also  of  i$90  bftaa  aa 
appaara  ia  tha  praaaat  fora  of  tha  proqraaa*  a  eoaaoo  van* 
ahla  daaetitq  tha  fraaa  ti ta  wool!  itva  ta  ba  iatrodacad. 
Tha  aabrootiaa  that  raada  a  fila  iato  pachata  f*Stadaoq*) 
ahoald  ba  partly  raviaad  ao  that  it  "tailota*  a  fraaa* a  aica 
according  to  tho  avail*  hi*  data  it  tha  filv  f«i  ta  »S00 
bytaa  par  fraaa).  for  wtaaplv.  ia  a  2099-bytaa  fila  tha 
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isssslsi  tsttsu**  ftttiASC  *,»•**.  »#•.♦*! 


CM  J •  A  1  *  1 1*  f  #*t  t  m  *  «  AS  ( A 1 1  •  .  «  t  A  2  .  .  .  .  .  *t  t  A I 

HI.  All  AttfSASAtA  AC*  SASit&AAAl  *Af  S« 

1AI«3«.  t«M  If  tit  AtfltMtl  ACS  tftltltl,  *Atit  90*1*1*1* 
SOM  AS  Itttttl  AS  StfSf. 

fct*  IQ  lot  ttt.ttl  *  StSS  ASStAf  |*9I  AA*  .  t  tCSIf »  •  | 


TWO  fitpU  10*114*  C4ll*  follow  t 

—  CiUUi  Mt*ic«f  ««  i«»ro«neH  : 

nr*  •  i 

cm  fTSKutritfAUimt) 

—  OHUf  WtUCtl  4*  fttKUMI  t 

iitistiH  sTtscuir.snr 


irr*  •  i 

st it  •  svsscusrt«mccer*ii 

2.  *404140  imittll 

tto  tlm  lift  to  ptii  1:94*44* «  to  ayaiaa 

mviCMi 

ft).  fx  tain.  no  arftaaat  is  th* 

act ool  tala*  to  *a  puaad  (a  aaabar  or  a  if* boll c  raprasaa- 
tatiea  of  a  aaaaslc  talon. 

—  taaaplai  Itr*  •  1 


ci u  ffstcLatrftfiL(xtr*n 

ID.  |x  taftttaea.  11a  tilt***  of  tr^aaatt  1* 
ptaial  la  tia  ttftaaat  Hot. 

—  taaaai*  t  ffTtoma  ttcsia 
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i.  smm  ssiticsi  aid  lx  abut  toon  its  osio  in  tbs 

t  IOC  BA  IS 

?Ai#  stctist  li  son  ietcsAtd  to  stssi&s  ttcc.  of  ths 
«*>*•  f«ffim/rMiU#«  is  9»it  dsuil  siscs,  soch  iafcrss- 
tios  ess  so  fits!  Us  f A l/tts  uiiiii.  lemid,  •  brisf 
Csserlptiss  sf  Us  asio  fsstsct#  is  sits*.  sloss  »ith 
ps«t  tests*  foists  sf  sttsstiet  for  usit  sffieitet  ass. 

It  uo  «AI/««i  sif»  ls«sl  Usfftfss  Us  systss  tsrvioss 
sffssc  Is  us  fsrsi  sms*rrtcs„t«s»t  m«  tl«  ssrvics 
flsiilis  is  silttss  ss  tv  tA  A  IS  l«s.  Also*  *.»•  tss-riss  Li  be  try 
PrsssOtfso  Asst  Isrs  lllffcoesAsrt.ssssi  sf,  tbs  proc*- 
Cscs  tot  ass  is  on  ttss  SS  LIIASPAIf. 

ikMtv  sll  sf  tis  ssoss  osrslsss/pfsoslsffss  «rs  sccoapt- 
•ass  ip  s»fsossts#  si  use  opt Lost  1  sr  ssstetiry.  sliefe 
espf ssost  (IS  sssessssty  istsrsstiss  tlsy  sssA  ts  csrry-ott 
us  rs|tus4  toss*  opt  loss  I  stfssssts  scs  SssotsS  «itk  title 
•soss  is  tools  suss  sis.  sstlstsry  t  sss  srs  losotst  siuost 
usststs. 

Him  itma  immi 


isssostf  ••  Softool •  ts  Csssst  fssst  ntf  Zlsstsc 

ISO  ittstlttt  Css  sot  fssst  flsf  Clsstot  systss 
sots  iso  soosos  s  tots  A  test  ot  sss  st  fit#  do*  tot  ts  Is  **•*» 
Us 'so  sits  s  ytosM  fot  tit  memM  sf  us  cat tost  Lssys 
•  !  *  toluol  •  yossoss'lotsl  eistts  t  *  is  Sot  fit  sss  sit* 
rwt  sssot  fls#  sotsisso.  If  tis  si  sol  elsstst  Asst  sst 
«•!$•  sot  its  ptotsos  its  tot  tolls  ptisusps.  tls  sorties 
«tO  «lst*st. 


High  level  Language  Fori at: 

STSXASCEFC  («fn,na*e,<prct>,<pera>) 

lift 

Rusher  of  any  event  flags  it  the  coaaoa  cluster  to 
ba  associated.  The  flag  auabar  aust  be  is  the  range  of  6a 
through  95  for  cluster  2  and  96  through  127  for  cluster  3. 

At  ft! 

Address  of  a  character  string  descriptor  pointing  to 
the  test  naae  string  for  the  cluster,  section  3.7.1  of  the 
Systes  Services  Reference  Manual  (Ref.  6]  explains  the 
forest  of  this  string.  The  naaea  of  event  flag  clusters  are 
unique  tc  OXC  groups. 

as si 

Protection  indicator  controlling  group  access  to  the 
coaaoa  event  flag  cluster.  A  value  of  0  (default)  indicates 
that  any  process  is  the  creator's  group  say  access  the 
duster.  A  value  of  1  indicates  that  access  is  restricted  to 
processes  executing  eith  the  creator's  OXC. 

fitU 

Persaaeat  Indicator.  Xf  it  is  1#  the  coasoc  event 
duster  is  narked  persaaeat.  Xf  It  is  0  the  cluster  is 
teaporery  (this  is  the  default  value). 

trlv ileus  restrictions 

To  create  a  persaaeat  cessoa  event  flag  cluster,  the 
user  privilege  PAfCtt  is  required.  To  create  a  coanon  event 
flag  cluster  ia  senary  shared  by  esltiple  processors,  the 
user  privilege  sail  is  requited. 


Uaaaisss  ggguigsd/retarnsd : 

Creation  of  temporary  coaaon  event  flag  clusters 
uses  the  process'  quota  (TQELH);  the  creation  of  a  permanent 
cluster  does  not  affect  the  quota. 

(1) .  Teaporary  clusters  are  autosatica lly  deleted 
when  the  iaage  that  created  then,  exits. 

(2) .  Since  this  service  automatically  creates  the 
coaaon  event  flag  cluster  if  it  does  not  already  exist, 
cooperating  processes  need  not  ba  concerned  with  which 
process  executes  first  to  create  the  cluster.  The  first 
process  to  call  SASCZFC  creates  the  cluster  and  the  others 
associate  with  it  regardless  of  the  order  in  which  they  call 
the  service. 

(3)  .  The  initial  state  of  all  event  flags  in  a  newly 
created  coaeon  event  flag  cluster  is  0. 

(4)  .  If  a  process  has  already  associated  a  cluster 
nuaber  with  a  named  coaaon  event  flag  cluster  and  then 
issues  another  call  to  SASC2FC  with  the  saae  cluster  number, 
the  service  disassociates  the  nuabtr  froa  it's  first  assign- 
aeat  before  associating  it  with  it's  second. 


1122X21  —  Assign  I/O  channel 

The  Assign  I/O  Channel  systea  service  provides  a  process 
with  an  I/O  channel  so  that  lnput/output  operations  can  be 
perforaed  on  a  device,  or  eetablishes  a  logical  link  with  a 
reaote  node  on  a  network. 


High  level  language  format: 

SYSS ASSIGN  (devna  a,chan,<acaode>,<mbxna. m>) 

devnam 

Address  of  a  character  string  descriptor  pointing  to 
the  device  name  string.  The  string  aay  be  either  a  physical 
device  name  or  a  logical  naae.  If  the  device  name  contains 
a  colon,  the  colon  and  the  characters  that  follow  it,  are 
ignored.  If  the  first  character  in  a  string  is  an  underscore 
(_)  ,  the  naae  is  considered  a  physical  device  naae. 
Otherwise  the  naae  is  considered  a  logical  naae  and  logical 
naae  translation  is  perforaed  until  either  a  physical  device 
naae  is  found  or  the  systea  default  nuaber  of  translations 
has  been  perforaed. 

£&&& 

Address  of  a  word  to  receive  the  channel  nuaber 
assigned. 

££1244 

Access  mode  to  be  associated  with  the  channel.  The 
aost  privileged  access  node  used  i3  the  access  aode  of  the 
caller.  I/O  operations  on  the  channel  can  only  be  perforaed 
froa  equal  and  aore  privileged  access  aodes. 

Address  of  a  character  string  descriptor  pointing  to 
the  logical  naae  string  for  the  aailbox  to  be  associated 
with  the  device,  if  any.  The  aailbox  receives  status  infor- 
aation  froa  the  device  driver. 

EEUillflj  £2&£l££l££J 

The  I8TSBX  privilege  is  required  to  perfora  network 
operations. 


Mils 


(1)  .  Only  the  owner  of  a  device  can  associate  a 
aailbox  with  the  device,  and  only  one  aailbox  can  be  associ¬ 
ated  with  the  device  at  a  time, 

(2) .  Channels  remain  assigned  until  they  are  explic¬ 
itly  deassigned  with  the  Oeassign  I/O  channel  (SD&SSGN) 
systea  service,  or,  if  they  are  user  aode  channels,  until 
the  iaage  that  assigned  the  channel  is  terminated. 


Ml&IIfl  —  convert  ASCII  String  to  Binary  Time 

The  Convert  ASCII  String  to  Binary  Tiae  converts  an 
ASCII  string  to  an  absolute  or  delta  tiae  value  in  the 
systea  64-bit  tiae  format  suitable  for  input  to  the  Set 
Tiaer  (SSBT1BB)  or  Schedule  Rakeup  (SSCHDRK)  systea 
services. 


High  level  language  fcraat: 

SXSlfiUXU  (tiabuf  ,tiaadr) 


Address  of  a  character  string  descriptor  pointing  to 
the  buffer  containing  the  absolute  or  delta  tins  tc  be 
converted.  The  required  foraats  of  the  ASCII  strings  and 
syntax  rules  along  with  several  exaaples,  are  described  in 
the  VAX/TBS  Systea  Services  Beferense  annual  tBef.  6]. 

Mill 

(1).  The  SBIITXfl  service  executes  at  the  access  aode 
of  the  caller  and  does  not  check  whether  address  arguments 


ara  accessible  before  it  executes.  Therefore,  an  access 
violation  causes  an  exception  condition  if  the  input  buffer 
descriptor  cannot  be  read  or  the  output  buffer  cannot  be 
written. 

(2) .  This  service  does  not  check  the  length  of  the 
argueent  list,  and  therefore  cannot  return  the  SSS—IHSP ARC 
(insufficient  arguments)  error  status  code.  If  the  service 
does  not  receive  enough  argueents  (for  exaeple  you  oait 
required  coasas  in  the  call),  you  light  not  get  the  desired 
result. 


KASHA  —  Cancel  Tiaer 

The  Cancel  Tiser  Bequest  systee  service  cancels  all 
or  a  selected  subset  of  the  Set  riser  (SSETIBB)  requests 
previously  issued  by  the  current  isage  executing  in  a 
process.  Cancellation  is  based  os  the  request  identification 
specified  in  the  SS1TIBB  systee  service.  If  sore  than  one 
tiser  request  was  given  the  ease  request  identification, 
they  are  all  canceled. 


Bigh  Level  Language  forest: 

SISfCAUB  (<requidt>,<ac*ode>) 

Bequest  identification  of  the  tiaer  request(s)  to  be 
canceled,  l  value  of  0  (the  default)  indicates  that  all 
tiser  requests  are  to  be  canceled. 


ISISi! 


Access  sods  of  th*  request  (s)  to  be  csocsltd.  The 
sost  privileged  access  sede  used  is  the  access  soda  of  the 
caller.  Only  those  tieer  requests  issued  froa  as  access  node 
equal  to  or  less  privileged  than  the  cesoltact  access  soda 
are  canceled. 


Tiser  requests  can  be  canceled  only  froa  access  soda 
equal  or  sore  privileged  than  the  access  sods  froa  which  the 
requests  were  issued. 


BitaascM  imimmianal 

Cancelled  tiser  requests  are  restored  to  the 
process*  quota  for  tiser  queue  entries  (TQ£LH  quota) . 
Outstanding  tiser  requests  are  automatically  cancelled  at 
image  exit. 


i£UU  —  Clear  Svent  Plug 

The  dear  Kveat  Flag  systea  service  sets  an  event 

flag  in  a  local  or  coasoa  event  flag  cluster  to  0. 


Ijqh  IfVfl  t*ggn*g«  Pore at 

nUSbUl  cefn) 


I u 


Vusber  of  the  event  flag  to  be  cleared 


KiZSBS  —  Croat#  aailbox  aod  laoige  Chttatl 

Tha  Croat#  aailbox  and  iaaiga  Cbasnol  aystt*  *»:i:c» 
croatoo  «  tirtoal  aailbox  dovic#  eaxod  9Bio:  asd  t£s:r«  i; 
I/O  cbaoool  to  it.  Tbt  syitM  provide*  tit  «»i?  aasbar,  a, 
than  it  croatoa  tbo  Mi  Id  ox .  IS  a  aailbox  titb  tat  cpocifioi 
Mat  oxiata,  tbo  iCBBBBZ  aortic#  aaaig&a  a  choanal  to  tbt 
oxiatiag  aailbox. 


Jfcgfr  Hill  iaagaagy  fcraa* i 

amcum  (<praflg>#  ch»a,  <aaxaag>,  <baigto># 
<ptoaab>,  <acaod#>,  <loqnaa>) 


sills 

Paraaaaat  indicator.  i  taiaa  of  1  ladlcatta  that  a 
ptraaotat  aailbox  ia  to  bo  eroattd.  Tbo  logical  aaao,  if 
apoclflod,  ia  oatorod  ia  tbo  ayataa  logical  aaao  tabla.  a 
tala#  of  0  (tbo  dofaolt)  iadlcatoa  t  taaporary  aailbox. 

Oil 

Add  root  of  a  oord  to  toco  1  to  tbo  cbaaaol  aoabor 
aaalgaod. 


11111 

■aabot  lad  lea  t  lag  tbo  aaxlaaa  aoabor  of  ooaoag*a 
that  caa  bo  toot  to  tbo  aailbox.  tf  aot  apoclflod ,  cr  la 
apoclflod  aa  0,  tbo  ayatoo  proridoa  a  dofaalt  talao. 

talus 

BOabor  of  bytoo  of  ayatoo  lyaaaic  aoaory  that  caa  bo 
toot  to  taffox  aoaaagoa  aoat  to  tbo  aailbot.  tf  act  a  pact* 
flod,  or  if  apodfiod  aa  0,  tbo  ayatoa  protidtt  a  dofaalt 
talao. 


77 


aeaerlc  oaloe  ropreeoatiti  u<  protoctna  i*st  i*r 
the  aallfcos.  T be  Mik  coeteieo  foer  •-bit  field*.  »;•.*  «» 
n«d  fnt  rt«at  no  loft  it  eaca  field.  if  aor  «pKif:*i«  or 
opacified  »•  0 *  iMi  ltd  t»rit»  pn«tli««  it  fmnd  te  til 

mrf. 

AOSifl 

be  com  eode  to  bo  eoaoeianei  oitb  tbt  chattel  t» 
oaisb  tbo  oollboi  to  Mttfeod.  til  toot  p:  lolloped  «ce««« 
acde  io  tbo  ooAo  of  tbo  col  lor. 


lsftiij 

bAArooo  of  o  ebonetor  atria?  Aeocnpto?  poibtlea  to 
tbo  lopieal  oooo  etna?  for  tbo  oailbot.  Tbo  eteioeleee* 
moo  for  tbo  oolloos  la  abbot.  Tbt  firot  ebon e tor  lo  tbo 
eqeloaleace  mm  atria?  la  oo  oaAoraeoro  character  1.1.  Q&J 
flL  Ifllf  grocf  aoa  oao  tbo  a  oil  boa  ;g  ooolao  otbor  y/0  eboo- 
tola  29  |  bo  oollbob. 

lUiiim  itmiami 

Tbo  osor  pr  lollop#  a  TSPlit  ooA  Ptiabt  are  rtfiltod 
to  crooto  teoporarp  ooA  poroaaoat  oollbotoo.  reopec- 
tloolf. 

Tbo  oa or  pr lolloTt  tffta  la  roftitoA  to  create  « 
Mil  boa  la  eoootp  abaroA  bp  aoltlpl*  procosooro. 

mflittia  imUMACttitl 

(1) .  spatoa  ApMMc  Mootp  la  repaired  far  tbo  alio- 
eatloa  of  a  dee  ice  data  a  too  for  tbo  oailbot  oaA  for  oa 
Mtrp  la  tbo  lo?lcel  moo  table*  if  a  lofical  aooo  it  opaci¬ 
fied. 

(2) .  aboa  a  teeeorarp  oailbot  la  created.  tbo 

procoao*  bettered  I/O  bpto  cooat  futi  iff  TUI)  la  rodocod  bp 

?• 


tto  »m»t  *poei  fi*4  it  tit  MWO  inmit.  ?kt  *u«  sf  *t« 
ooilbos  nr  69iuol  Uwl  %ti  tk»  Uneil  *«•  itf  «»  t* 
»r«  *l*o  0ftbt;ftctft4  f:)«  tl*  t«o^t.  ?i*  inn» 
U  («u:t«4  <j  tlo  p loc* ft*  «»•«  U«  «iUM»  u  4iS«**4. 

lBlftl 

|t>.  Ifttr  #  MilMi  :•  omu4,  tit  c;tuut 
procoftft  ftcd  ott«r  p:oc*sft«ft  eft*  ftMifft  i44;tm«l  cittstii 
to  it  ftf  cftUiit  tit  luitt  I/O  Cluttl  (fftiflSfi  o;  cmt* 
«uu«t  (feints )  ftfttftft  Mftiett.  r%*  «r»s*«  iftUtiiM  • 
(tftrnet  com  of  •  itim  of  ciiutlt  Mt'.i«t4  *o  « 
•oil tots  tit  eo«as  t«  4tctout4  «ft««**«r  *  eiMitl  It  4m* 
•lftt4  «tt»  tit  OtftUStl  I/O  Clllill  (tOfttfOft  Ifttftt 
Itsvict  OS  fttOft  «t0  iMft  tilt  Mt&fltt  tit  Clllttl  t«t(* 
Mtti.  if  is  i«  ft  too por try  uiUti,  it  it  itltttl  «it« 
ttoro  ftr#  »o  sot*  eitutU  ittiptf  to  it. 

(21.  ft  Mil  bet  i«  tmtt4  to  ft  ottsotblo  Jttietj  it 
oftaaot*  MMvt;«  to  oooatof  o;  tUtetttl.  ft  otto;  *orl*#  it 
otfttot  to  cooortoO  for  tRlttstt  tit  lii^oot toll  or  cuMt 
to  llfttof  vitft  •  oolooo  ftttf  •  procooo  (totattO. 

01.  Ktatf  oorolf  ftftftlffti  «  oluttl  If  tto  Mlltoft 
titttlf  ot lota  is  oxftor  to  naott  tto  im4  for  cocporttu* 
pKttttt  to  coaoiftor  *tict  procooa  am  otoeoto  fitot  to 
crooto  tto  otiltM.  If  •  ttapontr  tail  tot  to  baitf  cro«to4* 
fettits  iopUcitly  ftaUCtta  tto  otilbot  t*at  *itt  tto  yroop 
•ootor  to  ctoet  •  tot  too  tto  aalllst  altoaftf  fttloto.  ft 
ettot  *«:da#  ttoro  cot  to  otlf  on  oailtoft  pa;  ftoaf  «itt 
tto  oaoo  ft«oo.  for  forofttoftt  o«il*o*«ft»  ttot*  cat  to  oalf 
ooo  oftiltot  «UI  •  portico  Ur  mm.  ao«o*ot,  t  pot  Mint 
oftlltoat  ** ft  or o« p  of  Miltotfto  cat  t«*«  tt*  ••••  aaat. 


c;m(*  fw*»» 


Tk«  crH*.«  fro com  cynn  i«r*;et  «U»«*  *  procws 

to  «a«t»«r  yrecoM.  tm  emtil  proco*#  ett  M  «ititr 

o  MbycooMf  u  «  dtt«e*od  procooo. 

A  4«tieb4d  yrocMi  U  »  uUf  froctn. 

for  tit  ftomt  tilt  tit  ifitit  cr«t*»  «l*t  •  «n: 

loft  It  U  *  4tt«elt4  ffoctw.  A  ittftocHi,  »*  nt*  otltr 
toad.  U  r#Utt4  no  U«  era  hot  u  «  trtfiW*  tnroctoros  it 
tMtl«M  a  port  lot  of  t|«  crotnloi  procoao*  fttttt  «td  toon 
toroiaato  itfsrt  tit  atttm  proctto.  fit  tptelf iconics  of 
too  tic  *r  9  too  at  cottroU  otottor  tit  eroatad  pxocoaa  It  « 
Mtproctot  or  t  4tt«dt4  procoot. 


Kfl  U«tl  Utfotyo  Poroott 

ITHCtPlC  t<pld*4t>,  ittft,  <ltptt >#  <Ottpat>, 
<ottor>»  <pc**dr>.  <9*ont>,  <p?saaa>»  «t*apn># 

<at««at># 


pi  Of  f  f 

I44t«i  of  t  IctfioN  no  fteoito  tto  proeotc  l io* ti¬ 
tle*  t  loo  toooor  «ooifto4  to  tto  ecottoA  proeoot. 


A4lmt  of  *  dinettt  atria*  Aoocrlptor  poiatit*  to 
tto  til*  tpodf ictt&ttt  of  too  itopo  to  m  sctitatod  it  n*o 
eroatad  procoot.  fit  10*90  **00  sit  i«*t  «  octlooo  of  *1 
CtOCACtOt*.  tt  nit  lNft  mi  cottiitt  *  1 0910*1  *****  tit 
09010*1*000  mm  toot  to  it  •  1 09 let  1  utt  tool*  tt*n  eta  to 
occotood  tp  tto  era*  tod  ptoeott. 

illll 

Add  rot  t  of  t  et*  tie  tot  tint*  Aooctiptot  poiotiop  to 
tto  oqtitalotco  at 00  otritf  to  00  toooelttod  «itt  nto 


•  0 


lexical  um  ST  SSI  a  POT  is  the  logical  um  table  i  or  the 
created  irooMi.  The  «qai  nUse«  ei««  string  can  have  a 
hiIim  o f  63  ekuie*.«ri. 

auis 

64  dr  ««s  of  a  chart  eta;  string  descriptor  pointing  to 
thn  aqsivalvecv  aaaa  STSSOOTPOT  la  the  logical  ease  table 
for  the  created  process.  The  equivalence  naan  string  can 
have  a  sasiaee  of  63  characters. 

SUI 

address  of  a  character  string  descriptor  pointing  to 
the  eq  at  valence  aaae  string  to  be  associated  with  the 
logical  case  STSSttSOS  in  the  logical  ease  table  for  the 
created  process.  The  eqsi valance  naas  string  can  have  a 
assises  cf  63  characters. 

KllU 

address  of  as  6*-bit  sash  defining  privileges  for 
the  created  process.  The  sash  is  fnraad  by  setting  the  bits 
corresponding  to  specific  privileges.  Ths  SPlVDBP  sacro 
defiaae  the  ayabollc  Bases  for  ths  bit  offsets.  For  sors 
info  r  sat  ion  sss  ths  fil/vas  Spites  Services  Isfsrsncs  annual 
(Inf.  6]. 


address  of  a  list  of  raises  assigning  resource 
qeotes  to  the  crested  process.  Xf  no  address  is  specified, 
or  ths  eddress  is  specified  ae  3,  the  aoatea  sap  plies 
dsfselt  vslees  for  the  reeoarce  qeotas. 


gau 

address  of  a  character  string  dsserlptor  pointing  to 
a  1*  to  iS-charaetar  process  aaaa  string  to  ba  assigned  to 
the  created  process.  The  process  ease  la  iapllcltlT  qua  11- 
tied  bj  the  groep  aaaber  of  the  caller,  if  a  sebproceae  is 
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U  4 


Mr-  -  ■>**•*  -  •  » 


•PH4  HIM*  -»  •**» 

?•»»»•  •*  *  -•  *•,  AH' 

*  -  #  »**•  ma*H 


***  -4«»»«  '  #»> 


•  >**||*  **4*  i «  - -«P» 

H*~*>*hP  ►*•• 


**•  •  4 ♦i^H- 


*  IMH* 


4w^  *v--  •♦-  —  «*  ♦  -  4  A  -  *  I  «t« 


*♦*  -  *  4  -•**-  A*** 

-  *'•  **440»  * 


-«*••  —  **  *•  AH*  * 


*  U»  «*  *-•#  4*' 


•HP*  «4  *4i*  •*•««•  *»••*♦  A»*i  4< 


*4*4 


M«*  44 


H***H 


f*** 4 -■«•■*•*-<•*  4H* 


•Md*  •#  *44  •♦“••••••Ip  ♦•*•♦•"•••  AmML 


**■'<•**»+  **  t‘»*  Hi*  Hr  <nwnl.  *r*»  •♦  4  *•*•  *,  H  . 

•4  »1#*  *HH  *♦**■**•#  !•*•*•«•  7*  *  *H4*»*  H.Aj*.  «4«a 

•»»•*»♦>•«»  ’hp*  *p»  *hhp  «r»  p*  -4«*  —•**•»• 

•H#  HHM  #»•»  HHIHMI  7*HA*rt>-»4A**  p*  •  *?-4?«  «*•**? 

pfc**  »4* 

*r*H  »-*■*  -  «*>•*•;  4  —*•>? 


**“♦  «*-  **  -  »■*•*«  *.PP4*“ 

H>«  **•-  **t*iiHV*  44**4M*  i*  -f  «Hr*t“  •!  *  •  **ipp*p  * 

I**  **■•»•*  «»W4. 


*****  tH’fWt  ?f  *  *•*«*?♦  **  fPSPiHH  t  *Pt*4W**#t 

*»*'•  ••  ♦*MM  *%♦  ftHH-H*?  W«i**  i#  toi9»«t.  tf  *r»  *tP»ri“ 
«*  *t  *  **  V*  Hft»i*4,  ‘V*  «tf4«  md  «t 


} 


«***•  mil  -*  'mi 


i'i  n  t .  4  m  t 


*  **•  MM^il  *4  ~4  *>t«  ;  ♦>«**•  -  iJ»  f#' 

4ft#  U  MtS**^*#*  *4**»iM*-***  *******  ;*  »***«#  «***,<*  *tt««  *•* 
NMl  «*»  M '*  ««44*#  »* 

|^||  || 

t^rr+V*  *4«t  K4  XU»*  *  **  ^4*  ♦  »■?*  «  *«  **J 

*»•  M'*****#  M»  (V*t  ♦*-  *  •  *  «#<•*  *»:,  k»»«  M#> 

«*•*-*  r«4*>  r+  **4/++»  +*+*■•+  f  **  :  fftf ,  «  }, 


*m»  ***** «*•«■»  m+  *•- 

i  «m*«#  M» nfr»?  4  <<■«  mmm  t ♦** •»=*♦  *>?*#?  $#**)  > 

X  *•»  *  *#«+•**  I »■*»-»  4*m  #»*«**•*  4iv**<M 

Mft*  **M»*‘'*  •**  MU  M*4  #*****»•■*  . 

x  *Mft*  »  Hwr»»  ftftM  *#*•}»**#♦  *M*  •**  M3*W 

It#*  ■*#*  MM  *♦«¥♦*  *#  »**  fN**  . 

*  ftftttl#  #I»M4  IfttfW  Mt»  ft***  »#I«W  »M«** 

«#«•■  *#  rt»«lf  Wl*i  J#l*<  f#t  It# 

«#•***  ft  wwn> 

*  «W»#  •  «»*«***  fitw  «4M*5  «ttw 


»h  .  tl«  Mint  *f  MfflMttM  1*4*  »  ttMMt  «« 
«t**t«  \*  mttfitt  ft  it*  #*%*♦*♦#*  fMtt  ftfrtfi  t  tit 
fMIt  WtW  I*  MI*t«N  «%M  *  MlftMM  i«  »*!♦!*•. 

fit  *  ft*  («i‘«  tfre*»*  tftt«i  **f»if#  t*t«ittn 
«rnt«  lyt««l<  MMtf. 


Mi'  «  m*#*****#  ;*  ?«•»'•*«  ' m  Mi»i  »f  wx 

»**#  l*  rfii  %%•  (Mi)  n)»«  Tt* 

Ml  Mltillili  Mi  MM  ill  ;# 

DM  ******  •*#«%»*  •#  Ht  Nicillil  |«*^*  l*  *1* *a  lin  *» 
«M  <(M»)  iMlUlii  M  *?•!»*?.  4*|  |  Met*  **)«* 

v*  ******  *f  <M  <fMI«  Ml  *41  id  HllfIMNM. 


in.  4***  *r»M  f*MidiM  *;•  ?M*e(*i  *h;) 

ft**  MMHI  |f«4M»  **M*ft*#»  n*M  IHlidM*  IHUtl  *4 
M  *****  ft«ft*f*  ftMtfti  11*1)11  iftll«MT* 

M  littfMQ*  t*K«*i  ****  *t«i*tl**9*i  Ml 
I** *******  ******  *f  IIMtlMIIM  #?i«U*f*  *•  •<**«*«  Ml 

**********  !***#• 

U).  tf  *4  It***  Ml*  ft*  **♦*!?  1*4  •  "M  MLilM  U 
m  «***  **«u  m  *******  •***«} if  t«tiMii*.  4* 

*4*  ft**.  M  Il4lt*l  ******  *tf*tM  ft*  ftj***l  fot  *4* 
Ml  ft***  ft*  III  *******  »t  HI  IKIUltlM  ptIIIM  III  •» 
•***«*«  ft**  *******  ft*  «***  «•  IM  M ft  ft***,  t f  til  MUIM  M 
imii  ittfUt  ******  *•  «•«$«***•  it  i*  tua.  tii  *ftoc  i* 
ftf****4  m  U  ••  **ftl**t  1*4  MM  «***ftfft*l. 

01  •  Aft!  ************  CTtllll  *f  I  *f *****  *«*t 

wcftMii  **#»«•  *i*  *****  t**  ft  *****  *4*  *•  i*ft*t*i.  tr 

************  •*»*»  iM*  t**ftl  ffMtlf  ft*  ftUtll*  tllf  ttl 
**t***«i«*iif  4*ft*t*4« 

AM.  A  lltMM  |t9MM  CftftftOt  til  ft*  l**f* 

ttiiiUU*  *  «*11  t*  IM  lii*iit«  iftirttf  *t*c*A«r* 

UlIM.fMIIM!  tift*  tMttiCUl*  *ftl*t*  Meilll  M  CU  1* 
4*fi**4  •*•*  ia*  *••  ft*e*«*  I*  crtt«*l. 


•ft 


IBIS-  of  toe  x/o  at  oo  is? 

Tli  Qtsso  x/o  ao^ooo*.  tjctii  sarvlea  iaitiato*  it 
iftfi*.  or  ostpst  operation  Of  stoaoiaa  a  riqmt  to  «  ;I»hi1 
associated  «lta  •  specific  device.  Control  rotor no  ioee- 
dmtely  to  ’to  loot  lap  process,  vviea  eta  iraelreeUi  t/c 
coop  lot  lea  u  ooo  of  tit  tlm  vajst 

1.  Specify  tit  tMctn  of  as  AST  rootle*  that  io  to 
tsecatt  tits  tit  I/O  cooplotoo. 

2.  fait  for  a  specified  a* vet  {I19  to  fa  ttt. 

1.  Poll  tit  a  pool  ft  ad  x/o  atacaa  block  for  a  coop  lo¬ 
ti  it  antes. 

tbea  tbo  service  la  livoktd,  tba  tvtet  flag  la 
cleared  tavaat  flay  0,  if  aot  apocif iod|  1  if  tba  loss  ar«a- 
ttt*.  la  apocif  lad,  tbo  I/O  otatao  block  la  eloatad. 

•l«b-loaol  Uiftago  format 

ifitoio «afn>  ,cbea  ,?*ac  ,  <i  oab>  ,<aeeadr>  ,  <astpra> 

,<pt>  ,<p2>  ,<pl>  #<pa>  #<p4>  ,<pd>| 

tU 

faabor  of  tbo  oaoat  flaq  that  la  to  ba  set  at 
reflected  coepletloa.  if  aot  specified,  it  dafaalta  to  0. 

CHI 

Poo  bar  of  tbo  I/O  ebaaaol  aoalpaod  to  tbo  doaioa  to 
ablcb  tbo  reqeeet  la  dir  act  ad. 

lllfi 

faactloa  coda  aad  aodlflar  bits  that  a  pacify  tbo 
oporatioa  to  bo  porforaod.  Tba  coda  is  oiprosaod  syoboli- 
cmlly.  for  roforoaco  parposos,  tba  faactloa  coda*  ara  liatod 


in  fix/ Yd s  Syataa  Sarvica  Baaual  Appandix  1,  Saction  1.2. 
Coaplata  dataila  an  valid  I/O  function  codas  and  paraaatars 
raquirad  by  aacb  ara  docuaantad  in  tha  IllZIflS  1/9  Qsa^y 

sails* 

iflia 

Iddraaa  of  a  headword  I/O  statua  block  that  la  to 
cacti va  final  coaplation  atatua. 

MUil 


Iddraaa  of  tha  antry  aaak  nf  an  1ST  aarvica  rout ina 
to  ba  asacatad  whan  tha  I/O  coaplataa.  If  apacifiad*  tha  1ST 
root  lea  axacutas  at  tha  aceaaa  anda  froa  which  tha  SQIO 

aarvica  vaa  raqoaatad. 

tat nr p 

1ST  paraaatar  to  ba  paaaad  to  tha  1ST  aarvica 

root  ina. 

ills  Bi 

Optional  da  view-  and  function-apacif ic  I/O  raqaaat 
para  aat  ara. 

Prlviltct  Bitrlctipnf 

Tha  Qaaaa  I/O  Baqaaat  ayataa  aarvica  can  ba 
parforaad  only  on  aaaigead  1/0  channala  and  only  froa  aceaaa 
aodaa  that  ara  aqual  to  or  aora  privilaqad  than  tha  aceaaa 
aoda  froa  which  tha  original  chanttL  aaaiqnaaant  was  aada. 


mao  arena  Bionic  ad/Batnrnad 

(1).  Qoauad  I/O  raqoaata  aaa  tha  procaaa'a  quota  for 
baffarad  I/O  (BIOLB)  or  diract  I/O  (DIOLfl) ;  tha  process's 
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buffered  I/O  byte  count  (BYTLM)  quota;  and,  if  an  AST 
routine  is  spacifiad,  the  process's  AST  lieit  quota  (ASTLM) . 


(2).  Systea  dytaaic  seeory  is  required  to  construct 
a  data  base  to  queue  the  I/O  request.  Additional  seeory  say 
be  required  on  a  device-dependent  basis. 


I2I£  f 

(1) .  The  specified  event  flag  is  set  if  the  service 
terminates  without  queuing  as  I/O  raquest. 


31 _ 16  IS  Q 


Transfer  Count 

Status  Code 

Device-Dependent 

Information 

i  Figure  A. 2  I/O  Statas  Block. 

(2).  The  I/O  status  block  has  the  following  foriat: 
status 

I 

Completion  status  of  the  I  /0  request, 
byte  count 
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Hu  ■  bar  of  bytas  actually  transarrad.  Hot®  that  for 
soaa  daaicas  this  contains  only  tha  low-ordar  word  of  tha 
count.  For  information  on  spacific  daaicas,  sat  tha  UU1 as 

U2  susli  suite- 

Daaica-and  fuaction-dapandant  inforaation  aarias  according 
to  tha  daaica  and  oparatioa  baing  parforsad.  rha  inforaation 
raturnad  for  aach  daaica  and  function  coda  is  docuaantad  in 

tha  nia&z  sxs&ja  siaiai*  iza  sutcii  suite  csaf.  nj. 

(3)  .  Bany  saraicas  raturn  charactar  string  data  and 
writa  tha  langth  of  tha  data  raturnad  in  a  word  proaidad  by 
tha  callar.  Function  codas  for  tha  SQIO  systaa  saraica  (and 
tha  LBN6TB  arguaant  of  tha  SOOTPOT  systaa  saraica)  raquira 
langth  spacificationa  in  longwords.  If  langths  raturnad  by 
othar  saraicas  ara  tc  ba  usad  as  input  paraaatars  for  $QIO 
raguasts,  a  longword  should  ba  rasaraad  to  ansura  that  no 
arror  occurs  whan  SQIO  raads  tha  langth. 


SQIQg-  Quaua  I/O  Haguast  and  Sait  for  Baant  Flag 

Tha  Quaua  I/O  Baguast  and  Sait  for  Baant  Flag  systaa 
saraica  cob  bin  as  tha  SQIO  and  SShITFB  (Bait  for  Singla  Baant 
Flag)  systaa  sarsicas.  It  can  ba  usad  whan  a  program  aust 
wait  for  I/O  coaplation. 


Bigh-laaal  Languaga  Fcraat 

SISSQIOS  «afn>  ,chan  ,func  y<iosb>  ,  <astadr> 
,<astpra>,  <p1>  ,<p2>  ,<p3>  ,<p4>  ,<P5>  ,<p6>) 


l£& 
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■a  a  bar  of  th«  aaaet  flog  that  is  to  ba  sat  at 
raqaast  cosplatioa.  If  sot  spacifiad,  it  dafanlts  to  0. 


Busbar  of  tba  I/O  channal  assignad  to  tba  daaica  to 
ahich  tba  raqnast  is  diractad. 

lSUL£ 

Function  coda  and  aodifiar  bits  that  a  pacify  tba 
oparatioc  to  ba  parfocsad.  Tha  coda  is  azprassad  symboli¬ 
cally. 

l&lfc 

Addrass  of  a  qaadvord  I/O  status  block  that  is  to 
racaiaa  final  cosplation  status. 


as  t  a  dr 

Addrass  of  tha  aatry  sask  of  an  AST  saraica  rootina 
to  ba  axacutad  a  ban  tha  I/O  cosplatts.  If  spacifiad,  tha  AST 
rontina  a* scut  as  at  tha  accass  soda  froa  qhich  tha  SQIO 

saraica  was  raqaastad. 


men 

AST  parasatac  to  ba  passad  to  tha  AST  cosplation 

rontina. 
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Opt  ion  ml  device-and  function-specific  I/O  request 
piciittin. 

The  first  pa  master  say  bs  specified  as  pi  or  Pit, 
depending  oa  whether  tbs  function  sods  requires  sc  sddrsss 
or  s  value,  respectively.  If  tbs  keyword  is  not  used,  Pi  is 
tbs  dsfsnlt:  tbst  is,  tbs  arguaent  is  coasidsrsd  an  address. 
P2  through  Pn  are  always  interpreted  as  value s. 

ttiiUiai  istuisiUu 

of  tbs  1310  systes  service  for 


of  tbs  SQXO  systes  service  for 

Kill 

See  the  description  of  tbs  9Q10  systes  service  for 

details. 

JUiiUK-  Event  flags 

Tbs  iead  Event  flags  systes  service  returns  tbs 
current  status  of  all  32  flags  la  a  local  or  cosaon  event 
flag  cluster. 

High-level  Language  fersat 

aamiflgfsfn  ,  state) 
iXa 

Vusber  of  any  event  flag  vltbin  the  cluster  to  be 
read,  a  flag  nusber  of  0  through  31  specified  cluster  0,  32 
through  63  specifies  cluster  1.  and  so  forth. 


CIS! 

Idlrui  of  a  lotpootd  to  racoibo  th*  eacroat  vtitus 
of  til  ovoat  fil9>  ia  tb*  clestor. 


mm  z  m  fixitt  ms 

fbo  Sot  Bvoat  Pits  spot##  sarvico  •«*.<  as  ovoat  flop 
in  o  local  cr  coaooa  stoat  flap  clast  or  to  1.  bap  procassos 
•ait  lap  for  tbo  ovoat  flap  roaaao  acocatioa. 

Bipb-l«v#l  Laapaapo  Peraat 

STSSSITIPfof  a> 

i£a 

Vaobor  of  tbo  ovoat  flap  to  bo  oot. 


SSITIil**  sot  floor 

Tbo  Sot  floor  spstoo  aortic#  allow#  a  procooo  to 
scbodola  tbo  oottlap  of  aa  ovoat  flap  aad/or  tba  paoaiap  of 
•a  1ST  at  oooo  fataro  tlao.  fbo  tioo  for  tbo  ovoat  caa  bo 
spociflod  as  aa  aboolato  tioo  or  as  a  dolta  tioo. 

Wbon  tbo  oorvlca  is  iovokad,  tbo  ovaat  flap  is 
doarod  fovsat  flap  0  is  cloarod,  if  aono  is  spacifiod) . 


Bigh-loval  Laapaapo  Peroat 

STSSSBT1M l<ofa>  ,daptia  ,<astadr>  ,<roqnidt>) 
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f*#tt  flag  a««b*r  of  tu  •*»»*.  flag  to  tat  #fc*t  tfc* 
Un  interval  tapir##.  If  sot  «p9Ci{;«i.  it  defaults  * o  0. 


Address  of  the  qtadvord  expiration  tit*.  4  posit  it* 
tit*  hIn  iadicat##  as  absolute  tit#  »t  which  t  h*  tiatr  it 
to  tspizt.  4  t#q*tiv#  tit#  vtlot  indicates  to  offt«t  (4* It* 
tit#)  fro#  th#  current  tit#. 


MlAiS 

Address  of  th#  entry  task  )f  th  4ST  t«cvlc«  root  it# 
to  bt  called  «h#o  th#  tit#  itt«c*tl  aspires.  It  tot  speci¬ 
fied,  it  defaults  to  0  .indicating  to  AST  it  to  b#  queued. 


ItSlil 

Vtab#c  indicating  t  request  idantlf ication.  If  tot 
specified,  it  dtfttltt  to  0.  4  unique  request  identification 
can  bt  sp#clfl«d  it  #ach  ttt  tia«c  request,  or  th#  tat# 
ld#tt if ication  eat  bt  qivtt  to  rtlattd  tiatr  requests.  Th# 
idtatificatioa  oat  b#  ottd  lat#c  to  canc#l  th#  tia#r 
request  (s).  Xf  at  4 ST  service  matin#  it  specified,  th# 
idtatificatioa  it  patttd  at  th#  4ST  paraatttr. 


titaami  unlutaittaia 

(1) .  Th#  S#t  Tit#r  spat##  s#rvic#  r#qair#t  dynauic 

aeaory. 


(2).  The  S#t  Tiatr  systes  sarvic#  os#t  th#  proc#ta*s 
qaota  for  tia#r  qa#o#  #ntri#t  (TQBLB)  and,  if  an  4ST  aortic# 
root  in#  it  specified,  th#  proc«st*t  AST  liait  quota  (ASTLB) . 


(1) .  The  accost  soda  of  cb*  eali  or  if  th*  icctss 
•o4#  of  tk«  rtqiMt  aad  of  ib«  4 ST* 

(2) .  Zf  i  specified  obsolete  tine  teles  Ui  already 
passed*  tbs  tloor  •  spirts  it  the  asst  spot**  clock  cycle 
(tbit  is*  vitbis  10  sill  iso  cos  4  s)  • 

(31 .  Tbs  Contort  isczz  to  liurr  Tiso 

(SBZITIJ!)  systss  sorties  contorts  a  specified  ASCII  string 
to  tbs  goadwor d  tiso  fessBt  :i)«it«1  «s  iopot  to  tb«  ISSTIflt 
sorties. 


1T1B10C -Translate  Logical  Ssss 

Tbs  Translate  Logical  lass  systss  sorties  sot  re  bat 

tbs  logical  nans  tables  for  a  specified  logical  nans  and 
rotor  ns  an  sgoitalsncs  aaaa  string.  Tbs  process*  groop  *aad 
systss  logical  nans  tablss  ara  asarsbnd  la  that  ardor. 

tbs  first  string  natch  r  stores  tbs  sgoitalsncs 
string  into  a  oser- specified  boffsr;  tbs  search  is  not  iter¬ 
ation. 


Rigb-lstal  Laagoags  Persat 

mJnmaaogaas*<rsllsn>* 

rslbof*<tabls>*<acnods>*<dsbnsk>) 


lflfla  H 

Address  of  a  character  striag  descriptor  point log  to 
tbs  logical  naae  string. 


aUii 


Address  »(  a  word  to  :*e»m  the  length  of  ta» 
txacslated  sqsivaleac*  a  as*  string 


xalfcsi 

Ad  dr  •••  of  •  character  strict  descriptor  pointing  to 
tbs  bofftr  that  is  to  receive  tbs  rasslteat  eqaivaleact  aaae 
string. 

tablg 

Address  of  a  byte  to  reciiv*  the  toabes  of  tbe 
logical  aase  table  la  which  the  satcb  eas  foaad.  A  ret  ora 
seise  of  0  lad i cate*  that  tbe  logical  aase  was  foatd  la  tbe 
systee  logical  case  tablet  1  indicates  the  grasp  table,  and 
2  indicates  tbe  pcocsM  table. 

acaode 

Address  of  a  byte  to  receise  tbe  access  sod*  fro* 
which  tbe  logical  aase  table  entry  sas  aide.  Data  received 
la  this  byte  la  valid  only  if  the  logical  aaae  aatcb  was 
foaad  in  tbe  process  logical  aaae  tible. 


dppppl 

Bask  la  which  bits  set  to  1  disable  the  search  of 
psrtlcslar  logical  naee  tables.  Xf  bit  0  is  set.  the  systea 
logical  aaae  table  is  not  searched;  if  bit  1  is  set  .the 
groep  logical  aaae  table  is  not  searched;  if  bit  2  is  set. 
the  procMS  logical  aaae  table  is  aot  searched. 


If  no  lull  is  specified  or  is  specified  as  0  (tha 
default) ,  all  chess  logical  nass  tablss  are  searched. 


It  tbs  first  cbaractsr  of  a  specified  logical  cast 
is  an  underscore  cbaractsr  (_) ,  no  translation  is  perforeed. 
Bowever,  tbs  under seers  cbaractsr  is  reaoved  frne  ths  string 
and  tbs  sodiflsd  string  is  rstnrnsd  in  tbs  output  baffsr. 


mini-  fait  for  Single  Event  Flag 

Tbs  Sait  for  Single  Event  Plag  spates  service  teats 
a  specific  event  flag  and  returns  iasedlatelp  if  tbs  flag  is 
set.  Otherwise,  the  process  is  placed  in  a  wait  state  until 
the  event  flag  is  set. 


Big h- level  Language  peraat 
sismiTPB  fsfn) 


1 to 

■uaber  of  the  event  flag  for  which  to  wait. 


lam 

The  wait  state  caused  bp  this  service  can  be  inter* 
rupted  bp  an  aspnchror.ous  spates  trap  (AST)  if  (1)  the 
access  aode  at  which  tha  AST  executes  is  sore  privileged 
than  or  equal  in  privilege  to  tha  access  froa  which  the 
wait  was  issued  and  (2)  the  process  is  enabled  for  ASTs  at 
that  access  aode. 
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UNCLASSIFIED 


F/G  9/2 


NL 


When  the  AST  service  routine 


completes  execution, 
the  system  repeats  the  SWAITFR  request.  If  the  event  flag 
has  been  set,  the  process  resumes  execution. 


LIBSSPAWN-  Spawn  a  Subprocess 

LIBSSPAWN  requests  the  calling  process* s  Command 
language  Interpreter  (CLI)  to  spawn  a  subprocess  for 
executing  CLI  commands.  LIBSSPAWN  provides  the  same  function 
as  the  DCL  SPAWN  command.  The  subprocess  inherits  the 
following  from  the  caller's  environment: 

•  Process  logical  names 

•  Global  and  local  CLI  symbols 

-  Default  device  and  directory 

-  Process  privileges 

-  Process  nondeductible  quotas 

-  Current  command  verification  setting 

For  more  information  see  the  VAX/VNS  Command  Language  User's 
Guide. 


£o£mjt 

ret-status  *  LIB$SPAWN  (<comaand-string.  rt.  dxX, 
<input-file.rt.dx>  <output-file.rt.  dxX,  <flags.rlu.rX, 
<process-name.  rt  ,dx>  <,  <process-id.wlu.rX, 

<complet  ion-status.  wlc.r>  <,  <completion-ef  n.  rbu.rX, 
<completion-astadr. szem.r>  <,  completion- 

astprm.rz.  v»>  >>>>>>>) 
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comm string 

A  CLI  command  to  be  executed  by  the  spawned  subpro¬ 
cess.  If  omitted,  commands  are  taken  from  the  file  specified 
by  input-file.  See  notes  below  for  additional  information. 
Passed  by  descriptor. 

An  equivalence  name  to  be  associated  with  the 

logical  name  SYS$INP0T  in  the  logical  name  table  for  the 
subprocess.  If  omitted,  the  default  is  the  caller's 
SYS$INPUT.  See  notes  below  for  additional  information. 
Passed  by  descriptor. 

output- file 

An  equivalence  name  to  be  associated  with  the 

logical  names  STSSOOTPUT  and  STSIERROR  in  the  logical  name 
table  for  the  subprccess.  If  omitted,  the  default  is  the 
caller's  SYS$00TP0T.  Passed  by  descriptor. 

1U£S 

A  longword  of  flag  bits  designating  optional 
behavior.  If  omitted,  the  default  is  that  all  flags  are 
clear.  Passed  by  reference.  The  flags  defined  are: 

Bits  0  NOWAIT 

If  set,  the  calling  process  continues  executing  in 
parallel  with  the  subprocess.  If  clear,  the  calling  process 
hibernates  until  the  subproces3  completes. 

Bit  1  NOCLISYM 

If  set,  the  spawned  subprocess  does  not  inherit  CLI 
symbols  from  its  caller.  If  clear,  the  subprocess  inherits 
all  currently  defined  process  logical  names.  Tou  may  want  to 
specify  NOLOSN&M  to  help  prevent  commands  redefined  by 
logical  name  assignments  from  affecting  the  spawned 
commands. 


Bits  3  through  31  are  reserved  for  future  expansion  and  must 
he  zero. 

process-name 

The  name  desired  for  the  subprocess.  If  omitted,  a 
unique  process  name  will  be  generated.  Passed  by  descriptor. 

The  longword  to  receive  the  process  identification 
of  the  spawned  subprocess.  This  value  is  only  meaningful  if 
the  NORAIT  flags  bit  is  set.  Passed  by  reference. 

completion-status 

The  longword  to  receive  the  subprocess'  final 
completion  status.  If  the  NORAIT  flags  bit  is  set,  this 
value  is  not  stored  until  the  subprocess  completes;  use  the 
comp let icn-efn  or  completion-astadr  parameters  to  determine 
when  the  subprocess  has  completed.  Passed  by  reference. 

coiRletion^efq 

The  number  of  a  local  event  flag  to  be  set  when  the 
spawned  subprocess  completes.  If  omitted,  no  event  flag  is 
set.  Specifying  this  parameter  is  only  meaningful  if  the 
NORAIT  flags  bit  is  set.  Passed  by  reference. 

comsletacn-aslad^ 

The  entry  mask  of  a  procedure  to  be  called  by  means 
of  an  AST  when  the  subprocess  completes.  Specifying  this 
parameter  is  only  meaningful  if  the  NORAIT  f Igtgs  bit  is  set 
and  complet j.on-as^ady  h^g  been  specified. 

Soa£l£&i2&^ast££ffl 

A  value  to  be  passed  to  the  procedure  specified  by 
completicn-astadr  as  an  AST  routine  parameter.  Typically, 
this  would  be  the  address  of  a  block  of  storage  to  be  read 
or  written  by  the  AST  procedure.  Specifying  this  parameter 


is  only  meaningful  if  the  NOSAIT  flags  bit  is  set  and  in 
Comoleticn-astadr  has  been  specified. 

Notes 


If  neither  command- string  nor  input-file  is  present, 
command  input  will  be  taken  form  the  parent  terminal  .  If 
both  command-string  and  input-fole  are  present,  the  subpro¬ 
cess  mill  first  execute  co mmand-strinq  and  then  read  from 
input-^ile.  If  only  gommand-stginq  is  specified,  the  command 
mill  be  executed  and  the  subprocess  will  be  terminated.  If 
input-file  is  specified,  the  subprocess  will  be  terminated 
either  by  a  LOGOUT  command  or  an  end-of-file. 

The  subprocess  does  not  inherit  process-permanent 
filres,  nor  procedure  or  image  context.  No  LOGIN.COM  file  is 
executed. 

Unless  the  NONAIT  flags  bit  is  set,  the  caller* s 
process  is  put  into  hibernation  until  the  subprocess 
completes.  Because  the  caller’s  process  hibernates  in  super¬ 
visor  mode,  any  user-mode  ASTs  guaued  for  delivery  to  the 
caller  will  not  be  delivered  until  the  caller  reawakes. 
Control  can  also  be  restored  to  the  caller  by  aeans  of  an 
ATTACH  command  or  a  suitable  call  to  LIBSATTACH  from  the 
subprocess. 

This  procedure  is  supporred  for  use  with  the  DCL 
command  language  interpreter.  If  used  when  the  current  CLI 
is  MCB,  the  error  status  LIB$_N0CLI  will  be  returned. 

If  an  image  is  run  directly  as  a  subprocess  or  as  a 
detached  process,  there  is  no  CLI  present  to  perform  this 
function.  In  such  cases,  the  error  status  LIB$_NOCLI  is 
returned. 

LiptSfQf-  Stop  Execution  via  Signaling 

LIBSSTOP  is  called  whenever  your  program  must  indi¬ 
cate  an  exception  condition  or  output  a  message  because  it 
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is  impossible  to  continue  execution  .  or  return  a  status  code 
to  the  calling  program.  LIB$STOP  scans  the  stack  frame  by 
frame,  starting  with  the  most  recent  frame,  calling  each 
established  handler  (see  the  VAX-11  Rqn-Tlme  Library  Osar* s 
Guide) .  LIB$STOP  guarantees  that  control  will  not  return  to 
the  caller. 

Format 

CALL  LIBlSTOP  (condition-va lue . rlc. r< , parameters,  rl . v, ... >) 

S&elitio  rivals  a 

A  standard  signal  for  a  VAX- 11  32-bit  condition 
value.  Passed  by  immediate  value. 

parameters 

Additional  F AO  parameters  for  message.  Passed  by 
immediate  value. See  the  VAX -1 1  Run-lime  Library  0 sen's  Gui^e 
for  the  message  format. 

The  argument  list  is  copied  to  the  signal  argument 
list  vector,  and  the  PC  and  PSL  of  the  caller  are  appended 
to  the  signal  vector. 

The  severity  of  condition-v^lue  is  forced  to  SEVERE 
before  each  call  to  a  handler. 

If  any  handler  attempts  to  continue  by  returning  a 
success  .  completion  code,  the  error  message  ATTEMPT  TO 
CONTINUE  FROM  STOP  is  printed  and  your  program  exists. 

If  a  handler  calls  SYSSONNIND,  control  will  not 
return  to  the  caller,  thus  changing  the  program  flow.  A 
handler  can  also  modify  the  saved  copy  of  R0/R1  in  the  mech¬ 
anism  vector. 


The  only  way  a  handler  can  prevent  the  image  from 
exiting  after  a  call  to  LIBlSTOP  is  to  unwind  the  stack 
using  the  SYSJONHIND  system  service. 


APPENDIX  B 

ETHERNET  LOCAL  AREA  NETWORK 


A  convenient  method  of  connecting  computers  over  short 
distances  is  the  Ethernet  local  area  computer  network.  In 
fact,  Ethernet  has  now  been  recognized  by  more  than  a  dozen 
manufacturers  as  the  de  facto  standard  for  local  area 
computer  communications. 

The  10  Mbit  per  second,  packet  switching  network  is 
designed  to  interconnect  hundrends  of  high-function 
computers  or  workstations  within  2.5  kilometers  of  each 
other.  Ethernet  uses  a  passive,  equitable,  highly  efficient 
statistical  method  known  as  carrier-sense  mult iole-access 
with  collision  detection  (CSHA/CD)  that  enables  stations  on 
the  network  to  share  access  to  a  50-ohm  coaxial  cable  trans¬ 
mission  medium.  A  cable  segmentcan  be  up  to  500  m  long  and 
connect  up  to  100  stations.  Each  station  attaches  to  a 
coaxial  cable  via  a  tranceiver  system,  through  a  cable  that 
connects  the  tranceiver  to  the  station  and  can  not  exceed  50 
a  in  length. 

flessages  are  formatted  into  standard  frames  made  up  of 
bytes.  Framing  consists  of  a  destination  portion  (6  bytes) , 
a  source  portion  (6  bytes)  ,  the  message  type  (2  bytes)  ,  data 
(46  to  1500  bytes)  ,  and  a  frame-check  sequence  (4  bytes)  . 
Messages  can  be  addressed  to  a  single  station,  to  all 
stations  (broadcast)  ,  or  to  a  number  of  selected  stations. 
Signals  are  transmitted  using  Manchester  encoding,  a  means 
of  combining  separate  data  and  clock  signals  into  a  single, 
self-synchronizable  data  stream  suitable  for  transmission  on 
a  serial  channel. 

The  CSHA/CD  apprcach  can  be  summarized  as  follows: 


102 


Carrier-sense  means  that  each  station  "listens"  to  the 
cable  before  transmitting  a  packet;  if  some  other  station  is 
already  transmitting,  the  first  station  senses  the  presence 
of  a  carrier  and  defers  transmitting  its  own  packet  until 
the  cable  is  quiescent. 

Multiple-access  means  that  all  stations  tap  into  and 
share  the  same  coaxial  cable.  Every  transmitted  packet  is 
"heard"  by  all  stations  on  the  Ethernet.  The  intended  recip¬ 
ients  detect  incoming  packets  by  recognizing  their  addresses 
embedded  in  the  packets;  other  packets  are  discarded. 

If  two  or  more  stations  transait  packets  at  the  same 
time,  their  signals  will  be  intermixed  on  the  coaxial  cable. 
This  is  known  as  a  collision.  By  listening  while  transmit¬ 
ting  and  comparing  what  is  heard  on  the  cable  with  the  data 
being  transmitted,  each  station  can  detect  collisions  and 
back  off  by  waiting  a  random  time  interval  before  attempting 
to  retransmit  the  packet.  The  efficiency  of  the  network 
remains  high  even  under  conditions  of  heavy  load,  because 
the  mean  of  the  random  back  off  interval  increases  each  time 
a  collision  occurs. 

Bela teq  Information 

In  the  Figure  B.1  is  depicted  in  steps  the  decision  of 
selecting  which  medium  to  pick  for  a  local  network.  A  user 
can  move  from  left  to  right  accross  the  selection  "tree", 
checking  the  distances,  bandwidth,  and  applications 
supported  by  twisted  pair,  baseband,  and  broadband  medium 
classes.  Optical  fiber  currently  seems  best  only  for  point- 
to-point  communications. 

Like  the  physical  medium,  choises  are  available  for  the 
access  method.  Figure  B.2  is  a  selection  tree  to  determine 
the  optimal  access  method  for  a  specific  operating  environ¬ 
ment.  So,  a  prospective  user  can  again  can  move  from  left  to 
right  to  see  the  transmission  characteristics  supplied  by 
the  three  most  popular  access  techniques: 
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APPENDIX  C 

Nil 010  BO&BD.  DESCRIPTION-FEATURES 

DESCRIPTION 

The  NI1010  UNIBOS  Ethernet  Communications  Controller  is 
a  single  hex-height  board  that  contains  all  the  data  commu¬ 
nications  controller  logic  required  for  interfacing  dec's 
family  VAX-11  and  PDP-11  minicomputers  to  an  Ethernet  local 
area  network.  THe  controller  board  complies  in  full  with  the 
Xerox/Intel/Digital  Ethernet  VI. 0  specification  by 
performing  the  specified  CSM A/CD  data  link  and  physical 
channel  functions.  Also,  when  attached  to  a  tranceiver  unit, 
provides  the  host  UNIBUS  system  a  complete  connection  onto 
the  Ethernet  basebandcoax ial  cable  local  area  network, 
permitting  10  Hbit  per  second  transmissions  over  distances 
up  to  2500  meters. 

FEATURES 

Implements  Ethernet  Data  Link  Layer  Functions 

The  NI1010  formats  frames  and  performs  the  CSMA/CD 
transmit  link  management  functions  required  to  successfully 
deliver  frames  onto  the  network.  When  not  transmitting  a 
frame,  the  NI1010  continuously  listens  to  the  network  for 
frame  traffic  intended  for  it.  Only  frames  with  a  matching 
address  are  accepted  by  the  controller  for  subsequent 
transfer  to  the  host  ONIBUS  system.  The  controller  performs 
Physical,  Bulticast-Group  (up  to  63)  ,  and  Broadcast  address 
recognition.  CRC  generation  and  checking  is  also  performed. 

Implements  Ethernet  Physigal  Channel  Functions  The  Nil 010 
transmits  and  receives  10  Mbits  per  second  bit  streams  with 


electrical  and  timing  specifications  compatible  for  direct 
connection  to  an  Ethernet  tranceiver  unit.  The  controller 
performs  the  required  frame  synchronization  functions,  and 
Manchester  encoding/ decoding  of  the  bit  streams. 

Supports  High  Station  Performance 

The  NX  101 0  has  being  designed  to  offer  high  network 
performance  while  minimizing  the  service  load  placed  upon 
the  host  0NIB0S  system,  serving  to  buffer  the  host  from  the 
unpredictable  interarrival  times  characteristic  of  network 
traffic,  the  board  has  a  receive  FIFO  (first-in,  first-out) 
memory  which  can  store  up  to  13.5  Kbytes  of  received  frames. 
For  transmit  buffering,  the  NI1Q10  has  a  1.5  Kbyte  FIFO  from 
which  all  frame  retransmissions  are  made.  All  data  transfers 
between  the  NI1010  and  host  UNIBUS  memory  are  performed  by 
the  NIIOIO's  DMA  controller.  The  DMA  controller  may  be 
preloaded  by  the  host  with  up  to  15  receive  buffer  descrip¬ 
tors. 

Extensive  Diagnostic  Features  : 

The  NI1010A  controller  offers  comprehensive  network  and 
board  -level  diagnostic  capabilities.  LED  indicators  mounted 
on  the  edge  of  the  board  provide  a  visual  indication  of 
whether  or  not  the  host  is  communicating  onto  the  network. 
For  a  comprehensive  station  diagnosis,  the  NI1010A  may  be 
operated  in  three  different  types  o  data  loopback.  On 
power-up,  or  by  host  command,  the  controller  performs  a 
confidence  test  on  itself.  A  LED  iadicator  showes  the  pass/ 
fail  operational  state  of  the  board. 

Collects  Network  Statistics : 

The  NI1010A  tallies  statistical  values  on  various 
network  trafficand  error  conditions  observed. 


One  Hex-Height  ONI  BUS  Board : 

The  NI1010A  fits  into  one  ONIBOS  SPC  slot.  The 
controller  is  mechanically,  electrically,  and  architectur- 
ally  compatible  with  Digital  Equipment  Corporation's  ONIBOS 
specifications. 


-  10  million  bit  per  second  data  transmission  rate 

-  Coaxial  cable  segments  up  to  500  meters  (1640 
feet)  in  length. 

-  Op  to  100  transceiver  connections  per  coaxial 
cable  segment. 

-  Op  to  2  repeaters  in  path  between  any  two 

stations. 

-  Op  to  1500  meters  (4920  feet)  of  coaxial  cable 
between  any  two 

sections. 


-  Op  to  50  meters  (165  feet)  of  transceiver  cable 


between  an 


NI1010A  controller  and  its  transceiver, 


-  Op  to  2500  meters  (1.55  miles)  maximum  station 
separation. 

-  Point-to-point  links  up  to  1000  meters  (3280 
feet)  in  length. 

-Op  to  1024  stations  per  network. 
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APPENDIX  D 

NI101Q  ETHERNET  CONTROLLER  HOLTIPLEXING  OSES' S  MAN UAL 

A.  GENERAL  INFORMATION 

"Ethermult"  and  "Osermult"  are  two  programs  that  provide 
the  means  for  the  multiplexing  of  the  NI1Q10  Ethernet 
Communications  Controller  Board  which  takes  the  role  of  the 
interface  between  VAX-11/780  and  Etaernet.  In  their  present 
form,  they  enable  nine  users  to  access  the  VAX/VMS  facili¬ 
ties  from  an  JIDS  terminal  provided  that: 

1.  The  program  "Ethe rmult"  is  running  in  a  VAX/VMS 
terminal. 

2.  Each  user  has  his  own  "Osermult"  program  running  in  a 
VAX/VMS  terminal. 

In  this  scheme,  each  user  can  execute  VMS  commands  from 
his  terminal  as  if  he  had  a  real  VAX/VMS  terminal  to  do  his 
job. 

B.  SPECIFIC  INFORMATION 

Both  programs  reside  on  the  VAX/VMS  under  the  public 
user  account  with  user  name  "INTERLAN"  and  password  "VMS"  . 

First  thing  that  a  person  willing  to  work  with  the  multi¬ 
plexing  should  have,  is  an  account  in  VAX/VMS.  This  can  be 
easily  arranged  through  Mrs  Olive  M.  Paek  of  the  VAX-11 
professional  staff  (Rm  525B). 

Next  he  should  login  in  a  VAX/VMS  terminal  and  type  the 
following  commands: 

$COPY  <CR> 

$FBOM:  _D  B  A  1 :  INTERLAN  ETHERMBLT.EXE  <CR> 

$TO:  *  <C8> 
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The  same  commands  should  be  repeated  for  the 

"USERMOLT.EXE"  file. 

Now,  the  "Ethermult"  should  be  executed  from  a  VMS 
terminal  and  after  that,  the  "Usermult"  program  should  also 

be  executed  in  as  many  VMS  terminals  as  many  users  are 

required.  This  can  be  dons  by  typing: 

$  R  ETHERMULT  <CR> 

$  R  OSERMULT  <CR> 

All  programs,  as  they  are  set  up  now,  must  be  executed  from 
one  directory  i.e.  the  login  procedure  at  each  VMS  terminal 
should  be  done  using  the  same  user  name  and  password.  This 
happens  since  the  main  program  ("Ethermult")  can  only  have 
access  in  the  answer  files  that  reside  on  its  directory. 
That  is,  the  answer  file  of  the  user,  say,  9  (REPL9.DAT) 

should  be  in  the  same  directory  the  ETHERMULT.EXE  is 
executing.  Otherwise,  when  the  program  tries  to  find  it  in 
order  to  send  it  to  MDS  it  will  fail  since  they  reside  in 
different  directories. 

1  *  Operation  on  MDS  Systems 

After  the  required  number  of  "OSERMULT"  programs 
along  with  the  "ETHERMULT"  have  been  executed  in  different 
VMS  terminals,  the  modified  "ETHERNET"  program  (see  Appendix 
E)  must  he  executed  in  as  many  MDS  terminals  (currently  only 
two  are  available)  as  the  number  of  users  is. 

There  are  two  diskettes  with  the  same  "ETHERNET" 
program,  one  for  the  single  and  one  for  the  double  density 
MDS.  The  procedure  in  the  MDS  side,  same  for  either  of  them, 
is  the  following: 

When  the  system  is  booted  up  with  the  corresponding 
diskette,  execute  BTHERNET.COM  by  typing: 

A>  ETHERNET  <CR> 


Now  ,  a  saries  of  prompts  appears  on  the  HDS  screen 


ETHERNET  COMMUNICATION  PROGRAM-VERSION  5.0 
HLOWS  THIS  HOST  TO  CONNECT  TO  THE  NET. 
CNTL-H=B AC X SPACE  FOR  TEXT  FNTRIES: 

#sj !*#*******:}(  s*#**#  ***##*#*#**#####$#  a***##*# 


#sjc l^ENU  S*'#**!**1**#** 
WRITE  RECEIVED  FILES  TO  DISK  NO: 
DEFAULT  DRIVEiA)  =  1 

DISK  DRIVE  A  =2 

DISK  DRIVE  P  =3 

#  <s  J(t  <t  #  Jjs  *  Dt  #  x«  ##  V  # 

ENTER  drive  number==> 


The  user  can  enter  the  drive  number  he  wishes 
without  affecting  the  program,  since  no  data  is  going  to  be 
transfered  to  the  HDS  diskettes.  After  typing  in  one  of  the 
three  numbers  (  1,2  or  3)  another  sat  of  prompts  appears: 


ETHERNET  FRAME  DATA  BLOCK  SIZE: 
SELECT  129  FOR  ALL  FILE  OPERATIONS 
AND  VAX  COMMUNICATIONS. 

129  BYTES  =  1 

256  BYTES  =  2 

512  BYTES  =  3 

1024  BYTES  =  4 

1500  3YTES  *  5 

**#*«**«  *#*#***#*****>*$#£#**#*** 

ENTER  SELECTIONS 
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Here  also  any  selection  will  not  affect  the  program 
since  the  frame  size  is  fixed  to  1530  bytes  when  the  virtual 
terminal  mode  (nr.  3)  is  selected  in  the  next  set  of 
prompts: 


OPERATING  MODES: 


RECEIVE  WAIT  LOOP  =  1 
TRANSMIT  FILE  OR  MESSAGE  =  2 
VIFTUAL  TERMINAL  OF  VAX  =  3 
VAX  COMMAND  MODE  =  4 
DISCONNECT  FROM  NET  =  5 


ENTER  SELECTI0N==> 


Now  the  "VIRTUAL  TERMINAL  OP  VAX"  (nr.  3)  must  be 
selected. 

After  this,  a  "V>"  appears  and  the  user  is  ready  to 
type  his  own  commands.  They  should  be  the  usual  VMS 
commands,  preceded  by  the  characteristic  number  af  r he  user, 
selected  when  the  "Usermult"  program  was  executed. 

Example:  V>1dir  <CR>  (for  the  user  nr  1) 

or  V>3show  time  <CR>  (for  the  user  nr  3) 

When  the  answer  to  the  command  appears  on  the 
screen,  a  new  command  can  be  typed  in  after  tfce  "V>"  reap- 
£§1S s. 

If  the  user  wants  to  finish  his  session,  he  can  type 
a  <CR>  and  the  sets  of  selection  prompts  appear  again. 

If  he  wants  to  logout  of  the  VAX/VMS  multiplexing  system  he 
should  type  "LO"  and  the  "Usermult"  corresponding  to  him 
will  exit.  Prom  then  on,  thi3  user  cannot  enter  the 
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APPENDIX  E 


AUTHORS:  MAJOR  ANTONIOS  S AKELL A»OPOULOS 
HELLENIC  AIR  FORCE 

LIEUTENANT  IOANNTS  KlOONlEpS 
HELLENIC  NAVY 

THESIS  ADVISOR:  PROF.  UNO  KOORES 

NAVAL  POSTGRADUATE  SCHOOL,  DECEMBER  1983 


This  orogram  oer^oms  the  mu  I  t  i  o  1  ex  i  nq  of  Ethernet  Interface 
among  VAX  users.  It  shoulo  run  in  conduction  with  proaram 
"Usermul  t".  Detailed  descriotion  of  both  orograms  can  be  found 
in  the  thesis  of  the  authors,  under  the  title  "Multiplexing 
the  Ethernet  Interface  Among  VAX  users". 


c 


oroqra*  ethermult 


variaoles*  declaration  : 


implicit 
i nteger*2 
i nt  eger *4 
i nc 1 ude 
i nc 1 ude 
i nc 1 ude 
byte 

1 

2 

character 

1 

2 

3 

externa  1 
common 
1 


inteoer*4(a-2) 
iosb(2),c, Condition 
nichan,  sysSaiow,  sysSassign 
'edraO: tnossvs. inter) an Inidef. for* 

• (Siodef ) * 

' (Jssdef ) ' 

MRoacket ( 1522), MToacketC 1508) , usrnum, 
dfl ag,fl ad »com (81), 
table(R,4),row,rowflaa 

alph*(9)/'l*,'2','3','4','5','6','7','8','9'/, 
mai1box*7/’usrmai 1 '  / , 

msg*27/ ' Inva 1 i d  user  4.  Mso  ignored'/, 
msg 1 *27/ ' Mi 5s i ng  user  #.  Msg  ignored'/ 

dummy 

nichan/oak/moueue(°,81)/fl/ackflag/slot/n, 
/indl/notvet(9)/i nd2/t i mes (9 ) / f i 1  uni t /un i tnr 


c  Initializati ons  : 
c  =  0 

un i tnrsO 
do  i*l#9 
do  i=l ,4 

tabl e(i , i )*0 
enddo 
do  1*1,81 

mgueue ( i , 1 ) =0 
enddo 

no t  yet ( I ) *0 
enddo 
m*  1 1 

do  i  *  1,9 

t i mes ( i  )  *  m 
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end  da 

Associate  the  common  event  flaa  cluster  NJE T  t 
status  =  svsSasc e f c ( X va 1 ( oU ) # ' net ' » .  ) 
if  ( . not .  st at  us )  call  1 i b 5s t od ( Xva 1 ( s t a t us ) ) 

■Initialize  common  event  flans  #6'4  to  fltt  to  zero  5 
do  i=6U*34 

status  s  sysSc 1  ref (%val f i ) ) 

if  ( .not .status)  call  l i b5 s t oo ( %va 1 ( st a t us ) ) 
end  do 

Assign  a  channel  to  NIAOt 

i stat=svs$assian( 'NIAQ 1 »  n i chan . . ) 
i f ( .not . i Stat )  tyoe  *»  '  Assiqn  error! ' 

Start  up  and  oo  on  line: 

istats  sysSoi ow ( * %v a  1 (n i ch an ) » 

1  Xval  ( i  oS*-setmode  .or.  i oSmestartup) > 

2  i osbr ».»#»#») 

i f ( .not . i st at )  tyoe  Istat  start  uo  error!' 

i  f  ( i  osb ( ! ) . 1 1 . 0 )  tyoe  *»  '  Start  uo  error!' 

Initial  setting  of  the  receive-mode  : 

call  rec (^Roacket )  !  Receive  the  command  with  the  user  number. 

t  *  1 

conii  t  i  on  s  <1 

do  while  ( (condi t i on ,ea. 0 ) .and. ( i . I e.R) .and. (mnueuet i # 7 ) ,ne. 0 ) ) 
usmum  s  mqueue(i#lR) 

usrnu-  s  usmum  -  48  !  "Convert"  to  decimal. 

Check  the  user  number  : 

i4  (usrnum.ed.O)  then  !  Invalid  user  number, 

call  messaaefmsg. naueue ( i . 15) . maueue ( i . 16) ) 
do  i  =  1.81 

maueue(i.j)  s  0  !  Clear  this  slot, 

enddo 

call  arroueue  !  Fill  up  the  emotied  slot, 

go  to  10 

else  if  (usmum. gt  .9)  then  !  Missina  user  number, 

call  messaoeCmsql .mqueueC i . 15) . maueue ( i . lb) ) 
do  j  =  1.81 

maueue ( i *  j )  =  0 
enddo 

cal  1  arrqueue 
go  to  10 
end  i  f 

cal  1  searchCusrnum.table.c.rowflao.row) 

if  ( t abl e ( row , 2) .eg. 1 )  then  !  Reoly  file  for  previous  command 

!  of  this  user  hasn't  been  sent  yet 
i  s  f  *  1  !  serve  next  user. 

el  se 

Condi t i on  ~  1 

Extract  the  command  and  out  it  in  a  buffer  : 
do  j - 1 . 8 1 

com ( j ) smaueue ( i »  i  )  !  Load  the  buffer  with  the  command, 
mgueue ( i » j ) s0  !  Zero  the  command  buffer, 

enddo 

call  arroueue 
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n  n  n  o  o 


c  Write  the  comiafl'i  to  the  user's  mailbo*  : 

cal  1  5istriout  i3f'(co*»uSPnui'»di  !aa»  table»msa,c) 

it  (dflag.ea.l)  as  to  1 0  !  Mo  such  user  numoer  finally, 

end  i  f 
enddo 

c  Send  the  command  to  tne  user  : 

call  e*oort(c,table,‘'Roac<et) 

c  Check  tne  status  of  tne  users  and  uodate  user  table  and  number 
c  of  current  users,  if  necessary. 

call  status«-check  Cc,  taol  e) 

qo  to  1 0 

20  end 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


subroutine  SENDMSG(outfi  le»ans»usemu,"»MPoacket,c»table) 
ACTUAL  SENOING  OF  MESSAGE. 

WAIT  FOR  ACKNOWLEDGE  .  , 

IF  NOT  ACKNOWLEDGE  IN  5  SEC,  RETRANSMIT.  ’ 

IF  NOT  ACKNOWLEDGE  IN  10  SEC,  TRANSMISSION. 


i  -"D  licit 
i nt  eoer*2 

i nteger*4 

i nc 1 ude 
i nc 1 ude 
i nc 1 ude 
bvt  e 
byte 
1 

character 

1 

2 

common 

1 


i nt  eqer *4 ( a-z ) 

i oso (2) , endf i 1 , nchars , 1 ast  /0/,c 
nichan,  sysSqiow,  svsSassign 
’•■draOtCncssvs.interlanlnidef.for' 

• (fiod-f )  ' 

• (Sssdef  )  ' 

T  emobu  ff(S0),ans(2),usernum,MPoacket(1522) 

SToacket(1508),SRoacket(1522),row, 

tab!e(R»4),rowflaq 

outfile*R,del*6/'S  del  1 /,vers *2/'?*'/, 
del  f  i  l  e *  l  7, 

aloha(R)/,l,,,2,,'3,,,4',,S,,,6,,,7,,,8,,,9'/ 
nichan/f1/ackflaa/indl/notyet(R)/ind2/times(Q), 
/ f i 1 un i t /uni t  nr 


del f i lesdel/Zoutfi I e//vsrs 

C  Assign  destination  address: 
SToacket(n  =  '02’x 
SToacket(2)s*07'* 

STpacket ( 3 ) a  *  0 1  '  x 
SToac  ke t ( 4) s • 00 ’ x 
SToacket (5)s an s(l) 
SToacket(6)=ans(2) 

SToacket (7)s*  00  '  * 

SToacket (8 )  =  ’ 00  '  x 
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endf i 1 =0 
do  i =R* 1 508 


SToacket ( i )  =  '  0  0  ' « 

engdo 

Jsq 

do  while(j.le.l425)Istore  no  more  tt'an  1500  cHaracters  in  SToacket 
read(times(unitnr)*21»end=40)  nchars»(Temobuff(i)>i=t/80) 
?1  f or na t ( o» 30 a  1 )  1  count  the  nr  of  characters  in  the  line 

12  do  m  = 1 . n; nar s 

SToacket ( i )=Temobuff ( m ) 
j  =  i  +  l 

enddo 

SToacket ( j 1  - ‘ OO • *  !  carriage  return  at  end  of  line 

S Toac ket C j ♦ 1 ) = ' 0 4 • «  1  line  feed 

)-)  *2 

enddo 


?8  call  t ranee i ve ( SToac k et )  !  send  the  packet 

status=sys$waitfr(%val 12) ) 

if  ( . not . s t at  us  1  call  1 i b ?s t oo ( Zv a  1 ( s t at  us ) ) 

I  Check  if  an  acknowledge  was  sent  : 

if  ( ( 'APoac ket  ( 1 8 )  .ea .  *  FF  •  x  )  .or .  (  ack  f  l  ag .ea.  ss S«-wasse t )  )  then 
status=svsSclref(Xval f  2 ) ) 

if  ( .not .status)  call  1 i b5s t oo ( Xva 1 ( s t a t us ) ) 

if(endfil.ne.-l)  GO  TO  50  I  Send  onlv  one  frame  of  this  f i 1 
go  to  47 

end  i  f 


40  c 1 ose ( uni t *t i mes ( un i t nr ) ) 

SToacket (8) =* OF ’ x  J  For  last  oacket  recognition  from  ^DS. 

endfi1=«l  !  Flaq  raised  at  end-o  f  -  f  i  1  e . 

ao  to  28  !  Transmit  the  contents  of  the  last  oacket. 

47  s t at us  = ti bSsoawn (de 1  * i  l  e ) 

if  C .  no t .  s t at  us )  call  1  i b Sst oo ( Xv a  1 ( s t a t us  )  ) 

status  =  s vs$c 1  re f C %v a  1 ( 6 3 tusernum ) ) 

if  ( .  not . s t at  us )  call  l i bSs t oo ( Xva 1 ( s t a t us ) ) 

cal  1  search(u3ernun,table»c»rowf!aq*row) 
if  C row f 1 ag.eo. 1 )  then 

taole(row*2)  =01  User  free  to  enter  distribution  if  needs  so. 
end  i  f 

50  i  f ( engf i 1 .ne . - 1 )  then 

not  yet  (use mu* )  =  1 
el  se 

notyet (usernum)  =  0 
end  i  f 
return 
end 
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subroutine  t r anc • i ve ( Toac < 1 


I  *"o  licit 
i  n t  eaer *2 
i  nteaer*(i 
include 
i nc 1 ude 
include 
byte 
C  Citnon 


i nt  »qer *4 ( a-z  ) 
i  oso  ( 2  ) 
n  i  c  n  an 

'*-dra0:lnossys.inter1anlnidef.for' 
'  (  5  i  o  de  t )  ’ 

• (»ssdef  1  ' 

Toac  < ( 1508) 
n  i  c  Han 


c  Load  transmit  data  and  send: 

istat=svs5aio*(/2val ( n i c h an )  * 

1  tva  1  (  i  o*-e 1 1  ds  ) * 

2  i oso * * *  Toac k * %v a  1 (  1 508 ) * *  *  *  ) 


i f ( i osb ( 1) . 1 t . 0 )  call  1 i b 5s t oo ( X va 1 ( i osn ( 1 ) ) ) 
i  f  ( i  osb  (  2 )  ,ne  .  0  )  call  1  i  b  5s  t  oo  (  %\j  a  1  C  i  osb  ( 2 ) ) ) 


return 

end 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

subroutine  distribution(com,usernum*dflaa*table*msq*c) 


c  This  routine  searches  the  user  infornation  table  to  find  out 
c  whether  a  aiven  number  exists  as  a  valid  user  number.  If  it  is  so 
c  it  out s  the  message  into  a  mailbox  that  is  indexed  with  the  numoer 
c  of  the  user  to  whom  the  mso  was  addressed. 

c  If  the  given  number  was  not  a  valid  user  number*  the  message  is 
c  ignored.  In  this  case  the  "dflaa"  is  returned  with  value  "1". 


c 


c 


i mo  1 i c i t 
i nc 1 ude 
i nc 1 ude 
i nc 1 ude 
byte 
1 

character 

1 

character 
i nteger *2 


i nteger*4(a-z) 

'♦-draOJtnossys.interlanlnidef.for' 

• (Siodef )  ’ 

• (fssdef ) ' 

dfl ag*com<81 ) *  tabl e  ( q  *  4 ) *usernum*  row* 
row  f 1 aq 

aloha(cn/M,*'2,,,3,,'4',*5,,,6',,7','8',,q,<'* 
mai lbox*7/'usrmai 1 '/,msg*27 
outfile*q*out*4/'reol,/,fil*4/,.dat'/ 
c*channel (q) 


cal  1  seareh(usernum,taole*c*rowHaq*row) 

IF  ( ( rowf 1 ao.eo. 1 ) .and. ( t ao 1 e C row* 2) .ea. 1 ) )  then  i  User  number  exists 

in  user  table  ana  he  has  answer  in  orocess. 

return 

ELSE 


i  =  1 
df 1 ag  -  0 

outfi lesout//aloha ( use  rngm ) / / f i 1 
Check  if  the  user  number  exists  in  the  user  info  table  : 
if(c.at.O)  then 

do  while  ( ( i . 1 e .c ) .and. ( t ab 1 e ( i » 1 ) .ne .usernum ) ) 
i  =  i  ♦  1 
end  do 
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if  ( i  .  a  r  .  c  )  then  1  The  usa  is  addressed  to  an  unidentified  usee 
status  =  s  v  s  i  r  eade  f  (  %  va  1  (  72  t  us  e  rnum  )  /  u  s  r  )  1  Ch»c*  if  the 

corresoonoi nq  flag  is  set 
if  (.not. status!  call  linTstoo(%val (status)! 
if  ( status. ne.ssB^wasset)  then  1  Not  a  valid  user  finally, 
d  f  1  aa  =  1 

cal  1  message(msq*com(t5),com(16)) 
r  e  t  u  r  n 

else  1  Valid  user*  uodate  user  table 
c  =  c  t  1 

table(c*l)  -  usernum 

tab1e(c*2)  =11  This  user  has  oassed  through  distribution 
tab1e(c*3)  =  com(15)  1  Associate  addresses 

t  ab I e (c  *  4  )  =  con ( 16) 

end  i  f 

else  1  This  user  already  is  authorized  to  use  the  system. 
taole(row*2)  =  1  1  Indicate  oass  through  di st r i out i on . 
taole(row*3)  =  com(15)  1  Associate  addresses. 
tab1e(row*g)  =  com(lb) 
end  i  t 
e  1  se 

go  to  6 
end  i  f 

c  create  mailbox  and  assian  a  channel  to  it  : 

Status=sysicrembx(,channel(usernum)***,*mai1box//aloha(usernum!) 
if  ( .not .status)  then 

tyoe  *» ’error  in  creatina  user  mailbox’ 
call  1 ibSstoo(2va1 (status) ) 

endi  f 

c  Write  the  command  to  user  mailbox  t 

status=svsSaiow(*Xval  (channel  (usernum)), Xval  (io*-«-1  t  ds )  *  *  *  * 

1  Xref (com),*val  (81)*.*,! 

if  ( .not .status)  then 

tyoe  *r 'error  in  writing  user's  mailbox' 
call  1 i b is t od ( %va 1 (s t a t us ) ) 

endi  f 
END  IF 

ret  u  rn 
end 
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subroutine  exoort(c*table*MRoacket) 


c  This  routine  finds  out  which  user  has  Driority  to  send  his 
c  reoly  to  N 1 1010  controller  and  sends  one  frame  (  1500  bytes)  of 
c  it.  Then  oroceeds  to  the  next  ready  answer*  sends  one  frame  and 
c  so  on*  until  all  users  with  ready  answer  have  send  one  frame. 


i mo  1 i c i t 
i nc I ude 
i  nt  ecier  *2 


i  n  t  eae  r  *  'J  ( a~z  ) 
’  (  S  s  s  de  f  )  ’ 

c* i  , 


byte  3adr(2)»tanl®(R,'4),usernyr,-,Roacket(lS22) 

Character  aloha('5)/,l,,'2',,3','4',,5',’6,,,7',,8',,Q’/, 

1  outfilen^outnd/'reol'/ffil^fl/'.dat'/ 

Com'non/indl/notyet(R)/ind2/times(R)/filunit/unitnr 


if  ( c .eq. 0 )  return 
do  i  =  1 1 c 

usernun  =  tao1e(i*l) 

outfile  -  ou t / /a  1  oh  a ( use r num ) / / f i 1 

•n  =  1 

do  wh  i 1  e ( out  f i le(5:5).ne.aloha(m)) 

<n  s  ro  ♦  1 
end  do 
un i  t  n r  -  i> 

status  ~  sys5readef(%val(63+usernum),usr) 
if  (.not. status)  call  HbSstooCXval  (status)) 

if  ( ( s  t  a  t  us  .  en .  s  s  ?  a  s  se  t  )  .  an  d .  ( no  t  y  e  t  ( use  r  num ) .  ea .  0  )  )  then 
ooen(uni t=t ines(uni tnr) ,  f i 1 e  =  ou  t  f i 1 e#status=,ol d' ) 
end  i  f 

if  (  s  t  at  us .  ea.  ss  T«-wasset )  then  !  There  is  an  answer. 
addr(l)  =  table(i*3)  i  Form  the  address  of 
addr(2)  *  tab)e(i*4)  J  the  current  user, 
outfile  *  out / ^a 1 oha (usernuK ) // f i 1 

cal  1  sendmsaCout  fi  le,addrrusernumrMRoacket  »c»table) 
end  i  f 
end  do 

return 

end 
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subroutine  nessaae ( usq > a  1 , a2 ) 


i  ■no  1  i  c  i  t 

i nt  eaer  *« ( a-z  ) 

charac  t er*2  7 

•nso 

byte 

al ,a2, Toack  C 1 50S) 

T  oac  k (  1 ) 

2 

'02'* 

T  oac  k ( 2 ) 

s 

•  07 '  x 

Toack (3) 

s 

'01  'x 

Toack (4) 

3 

'  00  '  x 

Toack (5) 

3 

a  t 

Toack ( b ) 

2 

a2 

Toack(7) 

2 

•  00  '  x 

Toack(9) 

2 

'  OF '  x 

k=R 

do  i  =  l * 27 

Toack(k)=ichar(Tsa( i  :i  )) 
k  =  k*l 

enddo 

T  oac  k (ktl)s'OD'* 

Toack (k  *2 )  =  ' 04  '  x 
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T33ck(k+3)s'?0'x 
Toack(k+|'4)  =  ,?0'x 


call  t ranee i ve ( Toac k )  1  send  usa  and  receive  acknowleqe 

ret  urn 
end 
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subroutine  xmir  f Toac k * JRoac k et  ) 
c  This  subroutine  transnits  an  already  formed  oac<et 


i mo  1 i c  i  t 

i nteaer*2 

i nt eaer *4 

include 

include 

byte 

common 


.  Toack ( 1 ) = ' 02 ' x 
Toack(2)='07’x 
Toaekf 3)  =  '01  'x 
ToackCajsMRoackettl^) 

Toack (5) =MRoacket (15) 

ToackCb)sMRoacket(lb) 

Toack ( 7 ) s ' 00  *  x 
ToaCk(«)='FF'x 
Toack(9)='60'x 

c  Load  transmit  data  and  send: 

istat=svs5qio*(*%val  (nichan)»Zval  (io«*«-ltds)» 
l  i oso tt>  Toack , Xval ( 1 505 ) , ,, , ) 

if  ( i osb ( 1 ) . 1 t . 0 )  then 

tvDe  *» '  Ether  xmit  errorl!' 
call  1 i bl s t oo ( %va 1 ( i osb (  1 ) ) ) 
else  i f ( i oso ( 2 ) .ne. 0 )  then 

tyoe  *»'  Controller  xmit  error! ! ' 
call  1 i bSst oo (%val ( i osb ( 2  )  ) ) 

else 

i =  1  1  dummy 

endi  f 

return 

end 
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i nt  eqsr*« ( a-z  ) 
i oso ( 2 ) 
n i c  h  an 

'  t-draO :  (nossvs.interlsnl nidef.for' 
• ($i odef ) * 

Te>ack(1508)# M(?oac ket  (  1522) 
nichan/oak/maueue(9»81 ) 


subroutine  dummy (^Foacket  ) 


C  This  is  the  routine  in  «hicn  control  o*  the  nronram  is  transferred 

c  when  a  T*essaae  arrives  at  the  *•!  1 1  0 1 0  Board  and  an  AST  occurs. 


i  -no  licit  i  nt  eaer  *a  (  a-z  ) 

i nc 1  use  '  ( f i ode  f ) ' 

include  '(Tssdef)* 

byte  Mf?Oac,tetfi522)#Toacs(1508)/COi"(S!) 

common/oaK/maueue(P»Hl  1  /  f  1  /  ac  k  f  1  ao/sl  ot  /n 


if  (MRoacket ( 1 8 ) .eo. 1 FF ' x )  then  1  Acknowledge  oacket  received, 
call  rec (MRoacket )  I  Reset  the  receive  mode, 

ac k f 1 ag=svs i se t e f ( ? v a  1 C 2 ) )  1  Set  the  acknowledae  flaa. 

i f ( .not . ac k f 1 ag)  call  1 i b ?s t oo (" va 1 C ac k f 1 ag) ) 

else  !  Command  oacket  received, 

call  xmi  t  (  Toack  ,  MRoac  Ket )  I  Send  acknowledge  to  ,J1DS. 

c  Extract  the  command  from  the  received  oacket  : 
i  =  l<? 

do  while  CMRpac ke t ( i ) . ne . i cha r (  '  '  ’  ) ) 
i  =  i  ♦  1 
enddo 
k=l 

do  i s  1 .  i 

cofr(k)=MRoacket(  i  ) 
kskfl 
enddo 

call  arraueue  1  Arranae  the  command  Queue. 

Call  formaueue(com)  !  Put  the  command  at  the  first 

i  emoty  slot  of  the  Queue, 
call  rec (MRoacket )  1  Reset  the  receive  mode, 

end  i  f 
ret  urn 
end 
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suoroutine  rec (MRoac vet ) 

c  This  subroutine  receives  a  oacket  from  VDS.  This  oacket  can  be 

c  either  a  command  oacket  (18th  ovte  -  00)  or  an  acknowledge  oacket 

c  (18th  oyte  -  FF).  rthen  it  is  called,  it  sets  uo  the  NI1010  receive 

c  mode  and  exits.  Then,  as  soon  as  a  oacket  arrives  at  the  NI1010  it 

c  interruots  the  current  flow  of  the  orogram  (AST  is  "triggered")  ana 

c  calls  the  AST  subroutine  OJMMY. 


implicit 
i nteoer*2 
i nt  eger*U 
i nc 1 ude 
include 
byte 
common 
external 


i  nt  eaer*<J  (a-t ) 
i osb (2 ) 
ni chan 

' edraOtlnossvs.interlanlnidef.for' 
• (Siodef )  • 

MRoacket(1522)»Toack(150fl) 

nichan/oak/maueue(P.8l) 

dummy 


status=svs*cl ref fivu 1  ( 2 )  1 

if  ( . no t . st a t us )  call  I i b ?s t oo ( % va 1 ( s t a t us ) ) 
c  t yd s  *»'Readv  fo  recei ve. . . . ' #ni chan 

istat=svs5qio(%val  (1 ) #  %  v  a  1  fnichan),%val  (io5«-readlbl*)» 

1  ioso#ou'nwv,''‘,Poacket»^Rnacket#'Sval(1522)>,>,) 

if  ( i oso ( 1 1  .  1 t  .  0 )  then 

tyoe  *#*  Ether  error  in  receot i on  of  »sq  in  VAX/VMSiJ' 
call  1  i  bSstoo(%vaH  i  osb  (1  ) )  ) 
else  if  ( i osb ( 2 ) . ne . 0 )  then 

tvoe  *»’  Rev  error  in  VAY/V^S  Ethernet  controller  II* 
call  1 i b$st oo C X va 1 ( i osb ( 2 )  )  ) 

endi  f 

return 

end 
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subroutine  f ormaueue ( con ) 

c  This  subroutine  outs  the  new  command  into  the  first  emotv  slot 

c  of  the  cowwand  queue. 

inolicit  i n  t  eoe  r  *4 ( a~? ) 

.  bvte  cow ( 8 1 ) » MOpacke t ( 1522) 

cowwon/oak/-naueue(R»31  )/slot/n 

do  jsi»«l 

■"Queue  (n ,  i )  scow  ( j  )  1  Fill  uo  the  first  emDtv  slot  of  the  aueue. 
enddo 
ret  urn 
end 
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subroutine  arroueue 

iwolicit  i nt eqer ( a~z ) 

cowwon/oak/waueueiRfflll/slot/n 

c  Arrange  the  queue  5 
w=  1 

do  while  (m.le.R) 

i f  C (mqueue(w#7) .ea.O) .and. (waueueC (w  +  1 ) ,7) .eq. 1 ) 1  then 
do  i  -  1 r  8 1 

wqueue(w»i)  =  wqueue  (  ( -nt  1 ) » i  ) 
wqueue ( C wt 1 ) , i )  ~  0 
enddo 
end  i  f 
w  =  w  ♦  1 
enddo 

c  Locate  the  first  ewoty  slot  in  the  queue  : 

n  =  1  0 

do  i -9, 1 ,-t 

i f (waueue ( i » 7) .eg. 0 )  then 
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n  =  n-  1 
sn-(  i  f 

enddo 

if(n.eo.lO)  tvoe  *#'***  Oueus  is  full.  Command  net  a  u  e  u  e  a  11  ***' 

pet  urn 

end 
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Subroutine  s  t  a  t  us«-chec  k  { c  » t  ab  1  e ) 

c  This  routine  reads  the  f I aas  of  current  users  to  check  if  they 

c  are  still  in  the  system.  If  a  flaa  was  found  reset#  that  means  the 

c  cor resoondi no  user  has  loaned  out.  Then  the  user  table  and  number 

c  of  users  in  the  system  (c)  are  undated.  The  user  table  is  then 
c  rearranged. 

i mo  1 i c i t 
i nt  eger*2 
byte 
i nc 1 ude 
i nc 1 ude 

change  =  0 

k  s  C 

if  (k.qt.O)  then 
do  i  =  1 » k 

user  =  tabl e( i >  1  ) 

c  Check  whether  this  user  is  still  in  the  svstem  : 

status  a  sysSreadef (%val (72+user) #usr ) 
if  (.not.st jtus)  call  1 i b Ts t oo C Uva 1 ( s t at  us  )  ) 
if  Cs  t  at  us  .  ne .  ss  Sewasset )  then  !  This  user  has  logged  out. 
change  =  1  I  At  least  one  change  has  occured. 
c  =  c  -  1 
t  ao  1  e  C  i  #  U  =  0 
end  i  f 
end  do 

i f (change. eg. 1 )  call  ar range ( k # t ab 1 e ) 
end  i  f 

return 

end 
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Subroutine  ar range ( k # t ao 1 e ) 

c  This  routine  rearranges  the  user  table  after  at  least  one  user  has 

c  left  the  system#  so  that  there  are  no  emoty  lines  between  full  ones. 

i nt  eger *2  m # i »  k , j 

byte  t ab 1 e ( 9 # a ) , t emo ( 0 # 4 ) 

m  =  1 
i  =  1 

do  while(i.le.k) 
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integer*4(a-z) 
change# i >c»k 
table(9#4),user 
' ( Sssdef ) * 

'  ( .$  i  ode  f  )  ' 


if  (tableCi/ll.ne.O)  then 

do  i  -  I  .  J 

teno (  m  /  i  )  =  c  as  1 e ( i # i ) 
t ao 1 e ( i /  i)  =  0 
end  ao 
i  =  i  tl 
m  =  m  +  1 
e  1  se 

i  =  i  1 1 
end  i  f 
end  do 

do  i  =  l/m-t 
do  i  *  1  /  4 

tablefi  //)  s  tevo(itj) 
end  do 
end  do 

return 

end 
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subroutine  search(usernum/tab1e/C/rowflag/row) 

c  This  routine  searches  the  user  table  to  find  a  specific  usernum 

c  whi.ch  is  given.  If  it  finds  it  there  it  returns  the  "rowflag"  with 
c  value  1 »  and  the  "row"  of  the  table  in  which  this  usernum  was  found, 
c  If  the  usernum  was  not  found  there/  the  rowflaa  is  returned  with 
c  value  0. 

i nt eaer *2  c  /  i 

byte  usernum/ row/ rowf 1 aar 

l  tabl  e(9/  <*) 

rowflaa  =  0 
row  =  0 

i  =  1 

do  whi le( ( i . le.c) .and. fjsernum.ne.tabl e( i / 1 ) ) ) 
i  =  i  +1 
end  do 

i f ( i . 1 e.c )  then 

row  =  tabl e(» / 1 ) 

rowflag  =  1 
end  i  f 
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APPENDIX  F 


AUTHORS:  MAJOR  ANTONIOS  SAK.ELLAROPOULOS 
HELLENIC  AIR  FORCE 

LIEUTENANT  IOANNIS  K I  DON  I EPS 
HELLENIC  NAVY 

THESIS  AOVISOR:  PROF.  UNO  KOORES 
INAVAL  POSTGRADUATE  SCHOOL,  DECEMBER  1963 


This  oroaran  should  run  together  with  o  r og  r  am  "ETHERMULT"  in  order 
to  achieve  the  Ethernet  Interface  mu  1  t  i  o  1  ex  i  ng  among  VAX  users. 
Detailed  descriotion  of  the  orooran  is  found  in  the  thesis  of  the 
authors  under  the  same  title. 


program  use miu  1  t 


implicit 
i nt  eger *2 

1 

bvt  e 
i nc 1 ude 
i nc 1 ude 
character 

2 

common 


i nt  eqer *9 ( a~z ) 

channel (9),iosb(2)»endfil »doneflaq, 

1  oad 

com ( fl 1 ) , ans ( 2 ) »  usernum 
■<-draO:[nossvs.interlanlnidef.for' 

' (Siodef )  ' 

mai 1 *7/'usrmai 1 '  / » 

aloha(9)/'!',*2*,*3','4','5','6','7','8','9'/ 
n i chan 


call  authorizeCusernum, load)  I  Get  the  usernum. 
if  (load.ea.l)  go  to  101  1  System  cannot  accept  new  users. 

c  create  a  user  mailbox  and  assign  a  channel  to  it  : 

10  status5sysScremox(, channel (usernum),, ,,,mai l//aloha(usernum)) 

i f ( .not .status )  then 

tvoe  *, 'error  in  user  mailbox  creation' 
call  1 iblstoo(Xva) (status) ) 

endi  f 

c  read  the  mailbox  : 

statusssys^aiow(,Xval (channel (usernum) ),Xval (ioSvreadlblk),,,, 
1  Xref (com) » Xval (8 l ),,,, ) 

if  ( . not . s t a t us )  then 

tyoe  * , ’ read-user-mai l box  error' 
call  1 i b$st oo ( Xva 1 ( s t at  us ) ) 

endi  f 


c  Associate  common  event  flag  cluster  * 2  with  the  name  "NET"  : 
statusssystascefcCXval (69), 'net  ',,  ) 
if  ( .not .status)  call  libSstoo  ( Xva 1 ( s t a t us ) ) 

cal  1  feedf i 1 e(com) 
call  soawn  ( use  mum ) 

status  s  svs Sset e f  ( Xv a  1  ( 63 *use mum ) ) 

if  ( .not .st atus)  call  1 ibSstooCXval (status) ) 

oo  to  10 
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101  ■  end 
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subroutine  author i ze(usernum, load) 


c 

c 

c 

c 

c 

c 


This  subroutine  checks  the  common  event  flags  73  to  81  to 
determine  what  user  numbers  are  available  for  a  new  user.  Then 
it  interacts  with  the  user  and  acceots  or  rejects  an  entered 
user  number.  If  it  acceots*  the  orooer  common  event  flag  is  set. 
If  there  are  no  available  user  numbers  it  returns  the  variable 
"load"  with  value  "1". 


i mo  1 i c  i  t 
i nteoer*2 
1 

i nt  eoer *9 
byte 
i nc 1 ude 
i nc 1 ude 
i nc I ude 
externa  1 

common/cl /cancel 


i nt  easr*«( a-z ) 
1 oadf i t cond. 
i oso (2 ) 

f 1 aqarrav (9 )  ,  J 
use  rnum 
• (Siodef ) ‘ 

' (Sssdef ) ' 

•  «-dra0 :  [nossys 
aoort 


interlanlnidef.for' 


c  Assign  a  channel  to  terminal  : 

status  ~  svslass i gn ( ' t t : * » t ermchan , » ) 
if  (.not .status)  call  li bSst oo ( %va 1 ( s t a t us ) ) 

c  Start  uo  and  go  on  line  : 

status  -  sysSoi ow( » Uval ( termchan) , 

1  Xval  (  i  o$tjet  mode,  or .  i  o$m«-st  ar  t  uo)  > 

2  iOSbrmiMi) 

if  ( . not . s t at us  )  call  1 ibSstoo(Xva) (status) ) 

c  Initializations  : 

do  j  =  l  >  9 

f 1  agar ray ( j )  s  0 
end  do 
counter  =  0 
cancel  =  0 
load  =  0 
cond  =  0 

i  =  1 

c  Associate  common  event  flag  cluster  #2  under  the  name  "NET"  : 
status  s  svsSasce f c ( Xva 1 (64 ) , ' net  * » , ) 
if  ( . not . st at us )  call  1 ibSstooCSval (status) ) 

c  Check  if  flag  <*89  is  set  (system  occuoied). 

01  status  =  sysSreadef ( Xva 1 ( 89 ) , s t a t e) 

if  ( .not .st atus )  call  1 i b$s t oo ( Xva 1 ( s t at  us )  ) 

IF  ( s t at  us .eg. ssS^wasse t )  then  !  System  occuoied. 
i f  (cond. eg. 0)  then 

tyoe  *t'  Please  waitr  system  occuoied' 
cond  =  1 
go  to  01 
el  se 

go  to  01 
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end  i  f 

ELSE  1  System  availaole. 

status  =  sy s$set e f ( X va I ( 84 ) # ' net ' , > )  !  Set  flag  *84 
if  ( .not .status)  call  1 ibTstooOCval (status) ) 

Check  what  event  flans  from  73  to  SI  are  set  and  Dut  the  remaining 
ones  in  flagarray  buffer  : 
do  i  =1 ,  R 

status  =  sy sS reads f C %va 1 ( 72+ i ) f us r ) 

if  C .not .st at  us)  cal)  1 i b 5 s t oo ( Xva l ( s t at  us  )  ) 

if  ( s  t  a  t  us  .ne .  ss  $*-wasset )  then  i  This  user  number  is  availabl 
f  ?  aaar ray ( j )  =  i 
j  =  i»l 
end  i  f 
end  do 

j  =  j-1 

if  ( j .eq.O)  then 

tyoe  *»'System  fullll  Mo  new  users  at  the  moment.' 
load  a  1 
return 
el  se 

tyoe  *r‘  You  may  choose  one  of  the  following* 
tvoe  availaole  user  numbers.' 

do  i  a  1 ,  j 

write(6.0«) flagarrayti  ) 
end  do 
end  i  f 
format ( i 4 ) 

Set  the  timer  for  10  seconds  : 

call  sysSbi nt i m( ' 0  J : t 0 . 0 ' , svst i me )  1  Convert  10  sec.  to  sys  fmt 
call  sysSset i mr (/ svst i me» abort » )  1  Start  the  timer. when 

Get  the  new  user  numoer  : 

tvoe  **'  You  have  10  sec  to  enter  the  user  number  :' 

Read  the  user's  number  : 

status  ~  sy s Sgi ow ( # Xwa 1 { t ermch an ) , X va 1 ( i o$*reaol b 1 k ) , 

1  i osb t  , , usernum , X v a  1 ( 1  )  ,  ,  , ,  ) 

if  ( .not .status)  call  1 i b Ss t od ( X va 1 ( st a t us ) ) 
usernum  a  usernum  -  48 

Cancel  the  timer  : 

call  svsScant i m ( , ) 

Check  if  the  new  user  number  is  acceDtable  : 
i  =  1 

do  while((i. le.j). and. (flagarrav(i).ne. usernum)) 
i  a  i  tl 
end  do 

if  C C i .ea. j t 1 ). and .( count e r . ea . 0 ) )  Then  1  rtrong  number  entered, 
counter  r  counter  +  1 

tvoe  *#'  You  have  entered  an  illeoal  user  number! !  ' 
go  to  R 

else  if  ( ( i .ea. J tl ) .and. (counter. ea. 1 ) )  then 
cancel  =  1 
call  abort 

else  1  Valid  user  number  .  Set  the  orooer  flag, 
status  a  sy sSset ef ( Xva 1 ( 72+usernum) , • net ' » * ) 
if  ( .not . st at  us )  call  1  i  b 5s t oo ( *v a  1 ( s t a t us  ) ) 
status  a  svsTc l ref  Uval (84) )  1  Reset  flag  *1. 
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if  (.not.sutus)  call  I  i  b  5s  t  oo  ( %va  1  ( s  t  a  t  us  ) ) 
end  i  f 

t  vo®  *#'  User  ny-nosc  ®cceof®i  ' 

END  I P 
return 
end 
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SUBROUTINE  abort 

i no  licit  i n t eoer *  4 ( a-z ) 

comnon/d  /  cancel 


I. 

I 


w 


f 


c  Associate  common  event  flag  cluster  *2  « i  t  h  the  name  "NET "  : 
status  -  svsSasce f c ( Xva 1 ( t>4 ) t  ' net ' » » 1 
if  C .not .status)  call  1 i bSs t oo C %va 1 C s t at  us  ) ) 

c  Clear  flab  #84  : 

status  s  sys$c 1  ref ( %va 1 (84 ) ) 

if  ( . not . s t a t us  )  call  1 i b$st oo ( X va 1 ( st at  us ) ) 

if  (cance 1 . ea . 1 )  then 
eri te(6# 15) 

15  formatC'  Second  time  illeqal  user  number.  Program  aborted!!1) 
else 

*ri te(6, 16) 
end  i  f 

16  format ('  Time  has  exoi red.  Restart  the  orogram.') 
call  e« i t 

end 
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SUBROUTINE  f eed f i 1 e (com ) 


character*23 
i nt  eqer *2 
i nt  eqer*4 
i ne 1 ude 
i nc 1 ude 
byte 


msql / 'Recei ved  success fu 1 y  / 
i osb ( 2 ) r f i rst 

nichanr  svs$qiow»  sysiassign 
'♦•draO:  Inossvs.ioterl  an]  nidef.for' 

' (Siodef ) ' 

RGoaci<et(1522)fTGoacket(  1508)*ans(2)»com(81) 


i  =20 

do  ehile  (com( i ) .ne. i Char( ' %  '  )  ) 
i  =  i  1 1 

end  do 

ooen  (unitsl#file='mai1.com,,status='old’) 


write(6»ll)(com(j)»js20»i-l  ) 


write(l»ll)(com(j),j=20,i-l) 

11  formtC  * , <i >a  l ) 

close  (un i t - 1 ) 

return 

end 

ccccccccccccccccccccccccccccccccccnccccccccccccccccccccccccccccccccccc 


subroutine  SDawn(usemun) 

c  This  orooram  soawns  a  sufcorocess  for  executing  CLI  commands, 

c  The  commands  that  are  going  to  be  executed  are  contained  in 

c  the  file  'Mail. com’  whicn  is  the  inout  of  the  run  time  routine 

c  LibJsoawn.  The  results  of  the  execution  are  written  in  a  file 

c  called  'Reola.dat'. 

imolicit  i  n  t  eger  ( a~z  ) 

character  file*15  /  '  ma i  1  . com  '  / » esc«-nu  1  1  *2 

byte  esc^nu 1  I *num ( 2 )  / ' 1 b ' x , ' 00 ’ x/ , usernum 

inteoer*2  fi1e«-1en  /8/»dflaq 

equivalence  ( esc*-nu  1  1  » esc«*nul  1  «-num ) 

external  ssS^notran 

character  outfi1e*R»string*40»out*tf/'reol  '/ffiMa/'.dat' 

.  1  aloha(<n/M',,2',,3,,,a*,,5,,'6,,'7',,8,,'Q'/ 

character*l5  filedit 

equivalence  (fi1edit/Strino(7:20)) 


last  =  0 

outfi1e=out//a1ohaCusernum)//fil 

df 1 ag  =  0 

do  whileCstatus.ne.%10C  (  ss$*-no t  ran ) ) 

status=sysitrnloa(file(l:file«-len),file«-len»file»»>) 

enddo 

if  (f  i  left  :2l  .ea.  esc*-null)  then 

f  i  1  e ( 1 :  f  i  1  e«*l  en )  =  f  i  1  e  C  5 :  f  i  1  e«*l  en ) 
file*-len  =  fileMen  -  U 

endi  f 


ooenf  unitsWfiles'mail.com’.statuss’old') 
readCl ,6,end=7)strina 

6  format(a) 

7  c 1 ose (unitsll 

if(Cstrinq(2:5).eo. 'edit'). or. CstringC2:5).eo.* EDIT'))  then 
status^  1 i b Ssoawn ( ' 5  edi t * //f i 1 edi t * »out f i 1 e) 
i f ( .not .st atus )  cal!  1 i bSstooCXval (status) ) 
ao  t  o  9 

end  i  f 

c  Check  for  a  loaout  command, If  sorreset  user's  flaq  : 

if  ( (st r i nal 2: 3 ) .eg. ' L0 ' ) .or . ( st r i na(2: 3) .eq. ' 1 o ' ) )  then 
status  s  sys 5c 1  ref (%va 1 ( 72  +  usernum ) ) 
if  ( .not . st at  us )  call  1 i b 1 s t oo ( %va 1 ( st a t us  ) ) 
last  =  1 


APPEN  DII  G 

SOFTWARE  PROTOCOL  IN  HDS  USING  ETHERNET  LAN 


The  following  programs,  developed  by  Mark  Stotzer 
[Ref.  2],  provide  the  means  of  accessing  th«  Ethernet  via 
the  NI3010  Ethernet  Communications  Controller.  The  same 
programs  work  in  both  MDS‘s  presently  available  in  NPS 
Spanagel  Hall,  rooms  523  and  525. 

Two  modifications  were  introduced  in  these  programs  in 
order  to  improve  the  efficiency  and  speed  of  FAX-HDS  commu¬ 
nication: 

1.  In  the  subroutine  " Sendmsg'*  was  added  a  new  assigne- 
ment,  namely  ,,TXB0FF(8)  =  QM  in  two  places  in  order  to 

denote  that  the  frame  that  is  sent  is  a  command  and  not  an 
acknowlege.  This  was  necessary  to  be  done  since,  with  the 
previous  set  up,  the  HDS  was  transmitting  an  acknowledge 
frame  with  the  type  field  (bytes  8  and  9)  of  a  command 
frame.  So  when  the  FAX  was  receiving  an  acknowlege,  it  was 
interpreted  as  a  command  frame  causing  communication  prob¬ 
lems  . 


2.  In  the  subroutine  "Conmsg'*  was  done  a  transposition 
of  the  call  statements  to  the  subroutines  "Emptbuf”  and 
"Trmsg".  This  way  when  the  HDS  receives  a  frame  it  sends 
£L£st  the  acknowlege  frame  to  FAX  and  after  that  dumps  it  to 
console  resulting  in  much  faster  exchange  o  f  frames 
between  HDS  and  FAX. 


ETHERNET: /*MAIN  MODULE-APPLICATION  LAYER-ISO  LEVEL  7* / 

PROCEDURE  OPTIONS  (MAIN); 

DECLARE 

/♦  LOCAL  VARIABLES  ♦/ 

COUNT?  FIXED  BINARY  (7)  , 

COUNT7A  FIXED  BINARY:?)  , 

C0UNT72  FIXED  BINARY (7 )  , 

COUN77C  FIXED  BINARY  (?) , 

DSKNO  CHARACTER (1 ) , 

FRAMD  CHARACTER ( 1 ) , 

SELECT  CHARACTER (1)  , 

/♦  GLOBAL  VARIABLES  ♦/ 

R3C7IL  FIXED  BINARY (7 )  EXTERNAL, 

FRSIZE  FIXED  BINARY (15)  EXTERNAL, 

VTERM  FIXED  BINARY (7 )  EXTERNAL, 

TBMODE  FIXED  BINARY (7)  EXTERNAL, 

/♦  GLOBAL  DATA  STRUCTURES  ♦/ 

TX3UFF (1508 )  FIXED  BINARY  (?)  EXTERNAL, 

RXEUFF ( 1522  )  FIXED  BINARY (7  )  EXTERNAL, 

TXTEUF  (128)  FIXED  BINARY '7)  EXTERNAL, 

1  RXFC5  EXTERNAL, 

2  DISK  FIXED  BINARY (7 ) , 

2  FNAME  CHARACTERS ) , 

2  FTYPE  CHARACTER(3) , 

2  RFC B (24 )  FIXED  BINARY (7). 

1  TXFCE  EXTERNAL, 

2  DISK  FIXED  BINARY (7 )  , 

2  FNAME  CHARACTERS), 

2  FTYPE  CHARACTER (3), 

2  TFC2(24)  FIXED  3INARY(7) , 

/*  EXTERNAL  MODULES  ♦/ 

I  NIT  ENTRY, 

SENDATA  ENTRY, 

RECEIVE  ENTRY? 

/♦LAST  REVISION:  09/15/83-0920  ORIGINAL  PROGRAM : 07/29/83  */ 
/♦AUTHOR:  CAPT.  MARK  D.  STOTZER-U5MC-AEGIS  GROUP 
/♦TEESIS  ADVISOR:  PROFESSOR  UNO  R.  KODRES-COMP.  SCIENCE 

FUT  SKI?  LIST ( '♦♦♦#********♦********#♦*♦♦♦**♦*♦*♦*♦#♦♦♦♦♦ ' ) ; 

PUT  SKI?  LIST( 'ETHERNET  COMMUNICATION  PROGRAM-VERSION  5.0') J 

FUT  SKIP  LIST ('ALLOWS  THIS  EOST  TO  CONNECT  TO  TEE  NET.')? 

PUT  SKI?  LIST( 'CNTL-5-3ACKSFACI  FOR  TEXT  ENTRIES:'); 

PUT  SKIP  LIST ('*♦*♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦*♦♦*♦♦*♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦') ; 

PUT  SKIP' 2); 

RECFIL*47 ; 

count?*i; 

DO  WHILE  (C0UNT7*1)J 
COUNT7A*l J 

DC  VEILS (COUNT7A*l)J 
PUT  SKIPS); 
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»  » 


rTJT  SKIP  LI  ST  (  '##>*#*##>*>!<*!)!!*  v>aIN  MENU  **** j 
PUT  S2IP  LIST  (  'if  RITE  RECEIVED  FILES  TO  DISK  NO;'  i 
FUT  SKIP  LIST  'DEFAULT  DRIVE (A)  =  1'); 

PUT  SKIP  LIST (  'DISK  BEITS  A  =  2')? 

PUT  SKIF  LIST ('DISK  DRIVE  £  *3'); 

PUT  SKI?  LIST  (  '’S*#*##3**5*#*####**##**###***#’*###*#:^:*  '  ) 
PUT  SKIP  LIST  (  'ENTER  DRIVE  NUMBER**;'); 

GET  LISTiDSSNO); 

PUT  SKIF ( 2 } I 
I?  DSINO*  '1 '  TEEN 

do; 

RKFC3 .BISK=2  j 
CCUNT7A=2» 

2ND; 

ELSE 

IF  DSKN0='2 '  THEN 

do; 

ax?cp.Diss=i ; 

COUNT? A =2; 

END; 

ELSE 

IF  DSKN0*'3 '  TEEN 

do; 

RXFC3 .DISK*2; 

C0UNT7A*2 ; 

end; 

ELS  2 

PUT  SKIP  LIST ( 'INVALID  DRIVE  NUM3ER-REZNTER : ' ) J 
enb;/*dc  LOOP*/ 

COUNT7J-1; 

DO  WHILE  (COUNT7I«l); 

PUT  SKI?  LIST ( 'ETHERNET  FRAME  DATA  BLOCK  SIZE:'); 

PUT  SKIP  LIST ('SELECT  12S  FOR  ALL  FILE  OPERATIONS'); 
PUT  SKIP  LIST ('AND  VAX  COMMUNICATIONS . '  ; » 

FUT  SKIP  LIST ( '  126  BYTES  «  1')} 

PUT  SKIP  LIST ( '  255  BYTES  =2'); 

PUT  SKIP  LIST ( '  512  BYTES  =3'); 

FUT  SKIF  LIST ( '  1224  BYTES  =  4'); 

PUT  SKIP  LIST ( '  1522  BYTES  «  3')S 

FUT  SKIP  LI ST ( '*******************************') ; 

FUT  SKIP  LI3T( 'ENTER  SSLSCTION*=>' ) J 
GET  LIST (FRAMD)J 
PUT  SKIP (2); 

IF  FRAME* 'l '  THEN 
DO? 

FRSIZE*128; 

COUNT7B=2  J 

end; 

ELSE 

IF  FRAME* '2'  TEEN 

do; 

FRSIZE*25S; 

C0UNT7E=2 ; 

end; 

ELSE 


1  TC 
X  w  w 


I?  FRAME ='3'  THIN 

do; 

FR3 123=512  J 
C0UNT7B=2  > 

snd; 
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IF  FRAME ='4'  TH3N 

do; 

FR3 123=1324 ; 

C0UNT7E=2  J 

end; 

IF^FRAMD='5'  TH3N 

do; 

FRSIZ3=1£00  J 
C0UNT7B=2 ; 

end; 

ELSE 

PUT  SKIP  LIST ( 'INCORRECT  CE0IC3-R3ENTER:  ' ) 5 

end;/*  do  loop  */ 

VT3RM=0  J 
TRMOEE=0; 

CALL  I  nit; 

PUT  SEIF  LIST ('OPERATING  MODES:'); 

PUT  SKI?  list;'****************************'); 


PUT  SEIP  LIST; 'RECEIVE  WAIT  LOOP  =  1') 

•PUT  SKIP  LIST(  'TRANSMIT  FILE  OR  MESSAGE=  2') 
PUT  SKIP  LIST ( 'VIRTUAL  TERMINAL  OF  VAX  =  3') 
PUT  SKI?  LIST; 'VAX  COMMAND  MODE  =4'; 

PUT  3KIF  LIST( 'DISCONNECT  FROM  NET  =5') 


PUT  SKIP  list;'***************************************') 
PUT  SKI?  list; 'ENTER  SELECTION  ==>'); 

GET  LIST(SELECT)  ; 

PUT  SKIP ( 2  ) ; 

IF  SELECT-' 1'  TEEN 

dc; 

TX3UFF ( 1 )=Z; 
txeuff:z)=7; 

TX3UFF (3 )-l ; 

PUT  SKIP  LIST; 'IN  RECEIVE  WAIT  LOOP-TO  RETURN  TO'); 
PUT  SKIP  LISK 'MAIN  MENU:  ENTER  <CR>  ==>'); 

PUT  SKIP  LIST('********************************'); 

put  skip;2); 

CALL  receive; 
end; 

ELSE 

IF  SELECT* '2  '  THEN 
CALL  TRANS2  ; 

ELSE 

IF  SZLECT='3 '  TEEN 

do; 

VTERM=1 ; 

FRSIZE  =  1500  J 

PUT  SKIP  LIST;  '*******  VAX  TERMINAL  MODE  ##*#*#*'); 
PUT  SKIP  Cl ) ; 
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FUT  SKIP  LIST('7AX  TERMINAL  SERVICE:  M; 

PUT  SEIF  LIST  ('DATA  BLOCS  SIZE  ?3F.  PRAMS-');' 

FUT  LIST  FRSIZZ',! 

FUT  SKIP  LIST(  ' - '); 

PUT  SKIP  LI  ST ( 'TERMINAL  ENTRY  3Y  LINS  OP  TEXT')? 

FUT  SKI?  LIST('EEGIN  AFTER  INITIAL  V  PROMFT :  "7>"'3; 
PUT  SKIP  LIST( 'ENTER:  TEXT  LIN£<CR>')I 
PUT  SKIP  LIST ('PROMPT  WILL  AUTOMATICALLY  REAPPEAR')! 
PUT  SKIP  LIST ('UPON  ENTRY  OF  THE  FIRST  CHARACTER')! 


FUT  SKIP  LIST ( 'OF  THE  NEXT  LINE  YOU  BEGIN.')! 

PUT  SKIP  LIST  (  ' - '  ); 

PUT  SKIP  LIST (  'TO  END  TERMINAL  SESSION:')! 

FUT  SKIP  LIST <  'ENTER:  V<CR>  AFTER  "V>"'); 

PUT  SKI?  LI  ST  (  ' - ')! 


PUT  SXIP'.l)! 

TX3UFF (1 )=2! 

TX3UF?  f  2 )«?! 

TXBUFF (3 ) =1 ! 

TXBUFF (4 )*3! 

TXEUFF(S)=7! 

TXBUFF (6 )«127! 

TXBUFF (7 )=0! 

TXBUFF (8 )«0! 

COUNT7C=l! 

PUT  SKI?  LIST('V>')! 

DO  WHILE  ( COGNT7C=l ) ! 

CALL  SENEATA! 

PUT  SKIP  LIST ( 'V> ' ) ! 

IF  7TERM=0  TEEN  /*END  TERMINAL  SESSION*/ 

DO! 

PUT  SKIP  LIST('****  END  TERMINAL  SESSION  ****') 
COUNT7C*2! 

END! 

ELSE 

DO! 

CALL  INITi 
CALL  RECEIVE! 

PUT  LIST l  "*E'*E"HV>')  ! 

END! 

END!  /*  DO  LOOP  */ 

END! 

ELSE 

IF  SELECT  =  '4'  THEN 

rc  j 

PUT  SKIP  LIST(  '***  VAX  COMMAND  INSTRUCTIONS  ***'); 

PUT  SKIP  LIST ( ' - - - '); 

PUT  SKIP  LIST ('TO  DOWNLOAD  A  FILS  FROM  THE  VAX:')! 

PUT  SKIP  LIST( 'ENTER  TEE  MESSAGE:')! 

PUT  SKIP  LIST  (  !FNAME(VAX, .FTYPK  VAX  )/XXX  '  ”')! 

FUT  SKIP  LIST ( 'WHERE  "XXX'V’EXE"  FOR  NON-TEXT  FILES')! 
PUT  SKIP  LIST ( 'AND  "XXX'V'TXT "  FOR  TEXT  FILES')! 

PUT  SKIP  LIST ( 'FILE  WILL  THEN  BE  IMMEDIATELY  SENT')! 

PUT  SKIF  LIST (  'TO  THIS  HOST.')! 

PUT  SKIP  LIST  (  ' _ ' ) ; 

PUT  SKIP  LIST ('TO  UPLOAD  A  FILE  TO  THE  VAX:')! 


137 


FUT  STIP  LISTJ'I.)  ENTER  THE  "ESSASEs  '  *>; 

PUT  SKIP  LI  ST (  '  "  (?FNAKE(V  AX  )  .  FT YPE(  VAX) /XXX' 

PUT  SKIP  LIST  ('TO  OPEN  A  VAX  FILE  BY  THE  ABOVE  NAME')? 
PUT  SKIP  LIST('2.)  THEN:'); 

PUT  SKIP  LIST ('SEND  TEE  FILE  TO  THE  VAX  ADDRESS  USING') 
FUT  SKI?  LIST (  'THE  N03MAL  FILE  SENDING  SELECTIONS . ' ) J ■ 

PUT  SKIP  LIST  (  ' - ')? 

FUT  SKIF.l); 

TRyODE=l »  /*S ET  VAX  CMC  MODE  FLAG  TO  TRUE*/ 

FRSI ZE=128  * 

TXBUFF ( 1 )=2 ; 

TX3UFF ( 2 )=7  ? 

TXBUFF (3 ) =1 » 

TXBUFF  ^  4 ) =0 » 

TXBUFF ( 5 ) =7 ; 

TXEUFF (S )=127i 
TX3UFF ; ?  5*0  * 

TXEUFF (3 )=0? 

CALL  SEN DAT A? 

CALL  INIT J 
SXBUFF(17) =2£5J 
CALL  receive; 
end; 

ELSE 

IF  SELECT='5'  THEN 
COUNT7=2 ; 

.  ELSE 

FUT  SKIP  LIST( 'INCORRECT  OPMODE  SELECTICN-RZENTE3: ')» 

END?  /*  DO  LOOP  */ 

FUT  SKIP  LIST( 'DISCONNECTING  FROM  NET-RETURNING  TO  CP/M.')? 

TRANS2: 

procedure; 

DECLARE 

/*  LOCAL  VARIABLES  */ 

COUNTS  FIXED  BINARY (7), 

C0UNT6A  FIXED  BINARY (7) , 

C0UNT53  FIXED  BINARY (7 ) , 

C0UNT6C  FIXED  BINARY (7), 

SENDTYPE  CHARACTER (1) , 

FTYP  CHARACTER ( 1 )  , 

DRNO  CHARACTER (1 ) , 

/*  FILE  DATA  ENTRY  DCLS  */ 

I  FIXED, 

FN  CHARACTER (20 ) , 

LOWER  CHARACTER-; 26)  STATIC  INITIAL 
( 'atcdefghl Jklmnopqrstuvwxyz  ') , 

UPPER  CHARACTER (25 )  STATIC  INITIAL 
( ' ABCDEFGHI JKLMNOFQRSTUVWXYZ  '  : , 

/*  GLC3AL  VARIABLES  */ 

FILTYP  FIXED  BINARY  (7)  EXTERNAL, 

FNOP  FIXED  BINARY  (7  EXTERNAL, 

/*  GLOBAL  DATA  STRUCTURES  */ 
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TX3UFF ' 1523 )  FIXED  BINARY  7)  EXTERNAL, 

1  TXFCB  EXTERNAL, 

2  DISK  FIXED  EINARY (7) , 

2  FNAM2  CHARACTER (8), 

2  FTYPS  CHARACTERS ) , 

2  TFC5 (24 )  FIXED  El NARY (7)  f 
/*  EXTERNAL  MODULES  */ 

SENDATA  ENTRY? 

COUNTS  *1; 

DO  WHILF(COUNTS*l ) ; 

PUT  SKIP  LIST( 'TRANSMISSION  OPTIONS:'); 

PUT  SHIP  LIST ( 'S END  A  MESSAGE  =  1')} 

'PUT  SKIP  LIST; 'SEND  A  DISK  FILE  =  2'); 

PUT  SKIP  LIST  (  'a************************************* '  \ 
PUT  SKIP  LIST ('ENTER  SELECTION  »»>'); 

GET  LIST(SENDTYPE); 

PUT  SEIF(2); 

TXEUFF(3)=e; 

I?  SENDTYPS® '1 '  THEN 
EC  5 

TX3UF7 (7 )=3» 

CALL  SENDATA5 
C0UNT6=2  J 

end; 

ELSE 

' IE  SENDTYFE='2'  THEN 

do; 

TXRUFF (7 ) *15  » 

C0UNT6A»i; 

DO  WEIL2(C0UNT6A=1 ) » 

PUT  SKIF  LIST ( 'NATURE  OF  FILE  TO  SENE:'); 

PUT  SKIP  LIST (  'TEXT  (ASCII)  FILE  =  l')J 

PUT  SKIP  LIST; 'MACHINE  CODE  (COM)  FILE  *  2'); 
PUT  SKIP  LIST ( '****#********#********#******** ' 
PUT  SKIP  LIST ('ENTER  TYPE  OF  FILE  CHOICE  ==>')? 
GET  LIST (FTY?) J 
FUT  SKIP (2); 

IF  FTYP-'l'  THEN 

do; 

FILTYF=1 5 
C0UNT6A*2» 

end; 

ELSE 

IF  FTYP3  '2  '  TEEN 

do; 

FILTY?=2; 

COUNTS A =2 » 

end; 

ELSE 

PUT  SKIP  LIST(  'INCORRECT  CEO ICE-RE ENTER :  ' )  j 
end;/*  DO  LOOP  */ 

C0UNT6S-1; 

DO  WEILE(C0UNT6E=1); 

COUNT5C=i; 
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DO  tfEILE ( C0UNT6C  =1 5  J 

PUT  SSI?  LIST ( 'SPECIFY  FILE  TO  SEND:'); 

PUT  SKIP  LIST (  'FILE  LOCATED  ON:'); 

PUT  SKIP  LIST(  '  DRIVE  A  =  l'!? 

PUT  3SIP  LIST(  '  DRIVE  B  =  2'); 

PUT  SSIP  LIST  (  '********#*******##***  ' )  ; 

PUT  SKIP  LI  ST  ('INTER  DRIVE  NUMBER==>  ' ) J 
•1ST  LIST  (DRUG); 

PUT  SSI? (2); 

I?  DRNO*  '1 '  THEN 

do; 

txfce.diss=i; 

C0UNT5C*2! 

end; 

ELSE 

IE  DRNO= '2 '  TEEN 

do; 

TXECB .DISS=2J 
C0UNTSC=2; 

end; 

ELSE 

PUT  SKIP  LIST( 'INVALID  DRIVE-REENTER : ' ) 

end;/*  do  loop  */ 

PUT  SKIP  LIST(  'ENTER:"?ILZNAh£.FILETYPE‘'==>'); 
GET  LIST (FN ) J 
PUT  SKIP (2); 

FN =TRANS LATE ( FN , UPPER , LOWER ) J 
I=INDEX ( IN , ' . ' ) ; 

IF  I=<3  THEN 

do; 

txfcb.fname*fn; 

TXFCi.FTTPE*'  '; 
end; 

ELSE 

do; 

txfci.fname=substrfn,i,i-i;; 

TXFC3.FTIPS*3UISTR(FN,I+1) ; 

end; 

TXFCE.TFCI(l)=a; 

TXFC2.TFCB(4)=e; 
txfcb.tfce(2D=o; 
call  sendata; 

IF  FNO?~=l  TEEN 
countsb-z; 
end;/*  do  loof  */ 

COUNTS*?? 

end; 

ELSE 

PUT  SKIP  LIST ( 'INCORRECT  TRANSMIT  MCDE-REENTER: ' ) J 
end;  /*  DO  LCOP  */ 

END  TRANS 2; 

END  ETHERNET;/*  ISO  LATER  7  MODULE  */ 


SINDATA:  /♦  PRESENTATION  LATER  MODULE-ISO  LEVEL  6  *' 

FRCC SLURS  ? 

DECLARE 

/♦  LOCAL  VARIABLES  ♦/ 

CCUNT5A  FIXED  BINARY(7), 

VAXMODE  CHARACTER ( 1 )  , 

DESTADDR  CHARACTER ( 1 ) , 

/♦  GLOBAL  VARIABLES  */ 

TRMODE  FIXED  BINARY  (?)  EXTERNAL, 

7 TERM  FIXED  BINARY  (7)'  EXTERNAL , 

FRSIZE  FIXED  E INARY (15)  EXTERNAL, 

/*  GLOBAL  data  structures  ♦/ 

TX3UFF ( 1508 )  FIXED  BINARY  (?)  EXTERNAL? 

/♦AUTHOR :  CAPT.  MARK  D.  STOTZER-USMC -AEGIS  GROUP  ♦  / 

/♦ORIGINAL  PROGRAM :07/2S/£3*/ 

/♦LAST  REVISION:  11/21/63-2200  EY  IOANNI5  KID0NIZF3*/ 

/*  AND  ANTHONY  SAKELLAROFOULOSV 

/♦THESIS  ADVISOR:  FROF.  UNO  R.  XODRES -COMPUTER  SCIENCE  ♦/ 

I?  VTSPM=  1  THEN  /♦  TERMINAL  MODE  ♦/ 

DO? 

CALL  SSNDMSG? 

RETURN? 

*  END? 

IF  TRMODE*  1  THEN  /*  7AX  COMMAND  MODE  •/ 

DO? 

CALL  SSNDMSG? 

RETURN? 

END? 

COUNT5A-1 ? 

DO  WHILE (C0UNT5A=1 )  ? 

PUT  SKIP  LIST ( 'ADDRESSES  ON  TEIS  NETWORK:')? 

PUT  SKIP  LIST ( '00-33-EA :  MDS  SYSTEM  *  1')? 

PUT  SKI?  LIST ( '00-04-0A :  MDS  SYSTEM  =2')? 

PUT  SKIP  LIST( '00-07-7F:  VAX  11/760  =3')? 

PUT  SKIP  LI  ST \ '♦*♦*♦♦♦**♦♦♦♦♦♦♦♦♦♦*♦♦♦♦*♦♦♦♦') ? 

PUT  SKIF  LIST( 'ENTER  SELECTION  ==>')? 

GET  LIST(DESTADDR)? 

PUT  5KIP(2); 

TXBUFF ( 1 ) *2  ? 

TXBUFF (2 ) *7  ? 

TXBUFF(3)=1? 

TXBUFF (4 ) ? 

IF  DESTADDR*  'l '  THEN 
DO? 

TXBUFF (5 }*3? 

TXBUFF ( 6 ) *234? 

IF  TXBUFF (7 )*0  THEN 
CALL  SSNDMSG ? 

ELSE 

CALL  SENDFILE? 

CCUNT5A-2? 


end; 

ELSE 

IF  DESTADDR3 '2 '  TEEN 

do; 

TXEUFF ( 5 )=4» 

TX2UF? ;6 )*1Z  J 
IF  TXEUFF (7 )«<J  THEN 
GALL  sfnbmsg; 

ELSE 

CALL  senefile; 

C0UNT5A*2> 

end; 

ELSE 

IF  EESTADEE*'3 '  TEEN 

do; 

TXEUFF (5 ) *7 » 

TX3UFF (6 )»127i 
TRMODE*0» 

IF  TXEUFF  (7  )*i2  TEEN 

CALL  sendmsg; 

ELSE 

CALL  senefile; 

CCUNT5A*2» 

enb; 

ELSE 

FUT  SKIP  LIST ( "INVALID  NET  ADDRESS  SELECTED-RSENTEE : ' ) 
END?  /*  DO  LCOP  */ 

SENDMSG:  /*  MESSAGE  SENDING  MODULE  *' 

procedure; 

DECLARE  /*  LOCAL  VARIABLES  */ 

/*  GLOBAL  VARIABLES  */ 

FHSIZE  FIXED  BINARY ’■  15)  EXTERNAL, 

TRMCDE  FIXED  2INARY(7)  EXTERNAL, 

VTEPM  FIXED  2INARY(7)  EXTERNAL, 

/*  GLOBAL  DATA  STRUCTURES  */ 

TXBUFF(l£ae)  FIXED  BINARY (7 )  EXTERNAL, 

RXEUFF (1522  )  FIXED  BINARY (7)  EXTERNAL, 

/*  EXTERNAL  MODULES  */ 

FIL3UF  ENTRY, 

sbnefram  entry; 

IF  VTERM*1  THEN  /*  VIRTUAL  TERMINAL  MODE  */ 

do; 

call  iilbuf; 
txbuff;8)*0; 

IF  TX3UFF( 9) *96  TEEN 

return; 

IF  TX3UFF(9)-45  &  TXBUFF( 10 ) =96  THEN  /*£NE  SESSION*/ 
VT2EM=0 J  /*SND  TERMINAL  SESSION*/ 

V1S£ 

**TXEUFF(S)*0; 

CALL  sendfram; 


142 


ro ; 

PUT  SKI?  LIST (  'MESSAGE  SENDER:'); 

PUT  SSI?  LIST', 'MAXIMUM  NUMBER  CP  CHARACTERS- 

put  list(frsizi) ; 

PUT  SKIP  LIST (  'ENTER  MESSAGE  AFTER  PROMPT :  >') J 

PUT  SSIF  LIST; 'END  MESSAGE  Vi  I  IS  ACCENT:  '  ',; 

PUT  SKIP  LIST ( 

CALL  FILBUFJ  /♦PILL  TRANSMIT  PUFFER  PR CM  CONSOLE*/ 

CALL  SZNDFRAM?  /*  SEND  TEZ  MESSAGE  */ 

end  szndmsg; 

SZNDJILI:  /*  FILE  SENDING  MODULE*/ 

P3CC  ~E’UR7  J 

DECLARE  ~  /*  LOCAL  VARIABLES  */ 

COUNT 4  FIXED  3INARY(7), 

/*  GLOBAL  VARIABLES  */ 

FILTYP  FIXED  BINARY'.?)  EXTERNAL, 

FNCP  FIXED  EINARY (?)  EXTERNAL, 

LFRM  FIXED  EINARY (?)  EXTERNAL, 

/*  GLOBAL  DATA  STRUCTURES  */ 

TXBUFF(15ZS)  FIXED  BINARY (7 )  EXTERNAL, 

/*  EXTERNAL  MODULES  */ 

VAXTXT  ENTRY, 

TRNDMA  ENTRY, 

OPENDF  ENTRY, 

RDISS  ENTRY, 

SENDFRAM  ENTRY; 

TXBUFF(7 ) *15 i 

TXBUFF (8 ) =0> 

CALL  CF3NEF; 

IF  FNOP=l  THEN  /*FILE  NOT  ON  DISK*/ 

do; 

FUT  SKI?  LIST ('FILE  NOT  ON  DISK-REENTER  DATA:'). 

PUT  SKIP(2)5 

return; 

end; 

IF  TXBUFF (6)  =127  S,  FILTYF=1  THEN 

CALL  VAXTXT?  /*7AX  TEXT  FILE  FORMAT  CONVERTER*/ 

ELSE 

do; 

CALL  TRNDMAJ  /*  SET  DISK  DMA  ADDRESS*/ 

FUT  SSIF  LI5T( '*******  FILE  TRANSFER  EEGINS  ****** 

PUT  SSIP(2); 

C0UNT4-1J 

DO  WHILE(C0UNT4=1) 5 

CALL  RDISSJ  /*R3AD  A  DISK  FILE  RECORD*/ 

IF  LFRM~=1  THEN 

do  ; 

CALL  SENDFRAM; 

TXBUFF :s)=i; 


ELSE 

CCUNT4=2; 

END?  **  DO  LOOP  */ 

TX3UFF( 8^=255 5 
CALL  sendfram; 

PUT  SKIP  LIST i '*****  FILE  TRANSFER  ENDS  ***** ' 
PUT  SXIF{2); 

return; 

end; 

end  sendfile; 


END  SENDATA;  /*  ISO  LAYER  5  TRANSMIT  MODULE  */ 


a  EC  DATA:  /*  ISC  LAYER  5  RECEIVE  MODULE  */ 

procedure; 

DECLARE  /*  GLOBAL  DATA  STRUCTURES  *' 

RXBUFF  (1522 )  FIXED  BINARY',?)  EXTERNAL  i 


/♦LAST  REVISION:  11/31/83-2003  BY  IOANNIS  SIDONIEJS  */ 
/*  AND  ANTHONY  SAXILLAROPOULOS*/ 

/♦ORIGINAL  PRCGRA.M :2fi/ 17/83  */ 
/♦AUTHOR:  CAPT  MARX  D.  STOTZER-U5MC -AEGIS  GROUP  */ 
/♦THESIS  ADVISOR:  PROF.  UNO  R.  X 0 DR ES -COMPUTER  SCIENCE  ♦/ 


IF  RXEUFF ( 17 ) *  0  THEN  /♦  MESSAGE  JRAMS  ♦/ 

CALL  conmsg; 

ELSE 

IF  EX BUFF ( 17 ) =  15  THEN  /♦  FILE  FRAME  ♦/ 

CALL  filer; 

ELSE 

PUT  SUP  LIST  ( 'RECEIVED  IMPROPERLY  ENCODED  FRAME'); 


CCNMSG :  /♦  MESSAGE  RECEIPT  MODULE  ♦' 

procedure; 


DECLARE  /*  GLOBAL  VARIABLES  ♦/ 

TRMODS  FIXED  BINARY (7 )  EXTERNAL. 
FRSIZE  FIXED  BINARY ( 15 )  EXTERNAL, 
VTERM  FIXED  BINARY (7 )  EXTERNAL, 

/*  GLOBAL  DATA  STRUCTURES  */ 

RXBUFF (1522 )  FIXED  BINA?.T(7)  EXTERNAL, 
/♦  EXTERNAL  MODULES  */ 

TBMSG  ENTRY, 

EMTBUF  ENTRY; 


IF  VTEBM~=1  THEN  /♦  NOT  IN  VIRTUAL  TERMINAL  MODE*/ 

do; 

PUT  SKIP  LIST ('♦****  RECEIVED  MESSAJS  IS:') 5 
PUT  SKIP ^2); 

end; 

CALL  TRMSG;  /*  SEND  TEE  ACS  FRAME  */ 

CALL  EMTBUF;  /*  DUMP  TEE  REC7D  FRAME  DATA  TO  CONSOLE  */ 

IF  VTERM“=1  THEN 

do; 

PUT  SSI?: 2); 

PUT  SKIP  LIST(  '*♦***  END  OF  MESSAGE  TEXT.')? 

put  siipu); 

PUT  SSIP  LIST ( 'RACE  IN  WAIT  LOC?-ENTER<CR>  TO  2XIT  =  >'); 
PUT  SSIF  LI ST ('***♦♦*************♦**********♦*******') ; 
PUT  SKIP (2  ) ; 

end; 

ELSE 
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IF  RXBUFF  (18)  =1-5  TEEN  /*  END  CF  TERMINAL  REFLY  */ 
PUT  SKIP  LIST (  'V> ' ) J 
END  CONMSG; 


FILER:  /*  FILE  FRAME  RECEIPT  MODULE*/ 


procedure; 

DECLARE  /*  GLOBAL  VARIABLES  *■' 

TRMOEE  FIXED  BINARY  7)  EXTERNAL, 

RECFIL  FIXED  BINARY (7)  EXTERNAL, 

VTERM  FIXED  BINARY (7)  EXTERNAL, 

/*  GLOBAL  DATA  STRUCTURES  */ 

1  RXFC3  EXTERNAL, 

2  DISK  FIXED  BINARY (7 } , 

2  FNAME  CHARACTER  (8  , 

2  FTYPE  CHARACTERS; , 

2  TFCB (24 )  FIXED  BINARY (7), 

RXEUFF ( 1522 )  FIXED  BINARY '7)  EXTERNAL, 

/*  EXTERNAL  MODULES  */ 

BCVDMA  ENTRY, 

DELEDF  ENTRY, 

MAXEDF  ENTRY, 

WF.DISK  ENTRY, 

TRMSG  ENTRY, 

CLOSDF  entry; 

CALL  ECVDMAJ 

IF  RXBUFF ( 18 ; =0  THEN  /*  FIRST  FILE  FRAME  */ 

DC  ? 

PUT  SSI*  LIST( '*******  FILE  RECEIPT  BEGINS  ***#***'); 

PUT  SKIP  LIST ( '  OPENING  FILE-  RECFROM_.NET:'); 

PUT  SXIP{2); 

RXFCB. FNAME* 'RECFROM 

RXFC2 ,FTYFE*'NET '; 

F.XFCE.TFCB(  1  )*3»  /^CURRENT  EXTENT  FIELD*/ 

RXFC3 .TFCB (4 '-21 

RXFC3.TFC3(21)*0; 

CALL  DELEDF 5  /*EELETE  OLD  FILE  OF  THIS  FN .FT*/ 

CALL  massdf;  /*creati  a  new  one*/ 

CALL  WRDISX;  /*WRITE  FIRST  REC0RD(126  BYTES)  TO  DISK*/ 

CALL  TP.MSGi  /*  SEND  THE  FIRST  ACS  FRAME  */ 
end; 

ELSE 

IF  RXBUFF (18  )*1  TEEN  ,/*INTERMZDIATE  FILE  FRAME*/ 

do; 

CALL  WRDISKJ  /*WRITE  NEXT  RECORD  TO  DISK*/ 

CALL  TRMSG;  /*  SEND  THE  ACS  FRAME  */ 

end; 

ELSE 

IF  RXBUFF  (IS)  *255  THEN  /*L  AST  (DUMMY }  FILE  FRA  Mr.*/ 

do; 

CALL  CLCSDF;  /*CLOSE  THE  DISK  FILS*/ 

PUT  SKIP  LIST( '*******  END  FILE  RECEIPT  *****#*'); 


PUT  Si IP  LIST (  SEE  FILZ(S ) :EECFRCM  .NET ' )  J 
PUT  Slip (2); 

CALL  TRMSO ;  /*SEND  TEE  LAST  ACE  */ 

PUT  SKIP  LIST (  '  NOTE: ' ) 5 

put  skip  list;  ' - ')  J. 

PUT  SKI?  LIST; 'IF  RECEIVED  FILE  IS  A  TEXT  FILE  FROM ' ) ; 
PUT  SKIP  LIST (  'THE  VAX  THIN  REFORMAT  US  INS:  ' ) * 

PUT  SUP  LIST;  "’PIP  ?K  AM  E . FT  Y  ?£ =R£C?  ROM  .NET  [DSC]  ” ' ) » 
PUT  SKI?  LIST  (  '!JiEERZ  FNAME.FTYPI  IS  YOUR  CEO  ICZ'  )  J 

put  skip  list; ' - ').; 

PUT  SKIP(2); 

IF  7TERK-1  TEEN 
C  0  * 

PUT  SKIP  LIST; 'STILL  IN  VAX  TERMINAL  MODS:')? 

PUT  SKI?  LIST  I 'V> ' ) ; 

end; 

ELSE 

do; 

FUT  SKIP  LIST ('IN  WAIT  LOOP-ENTSR<CR>  TO  EXIT'); 
PUT  SKIP  LI  ST  ( 's**##*#***#***#**##*##*#*###### ' ) ; 

put  skip;s); 
end; 

end; 

ELSE 

PUT  SKI?  list;'  FRAME  TYPE  FIELD  BYTE  2  INVALID  CODE'); 
END  filer; 

END  RECDATAJ  /*  ISC  LAYER  6  RECEIVE  MODULI  */ 


APPENDIX  H 

HIGH  LET  EL  DESIGN  OP  A  VIRTUAL  TERMINAL  NETWORK 

This  Appendix  night  be  useful  to  the  person  who  may 
undertake  the  design  cf  a  virtual  termianal  network.  It 
contains  a  high  level  design  of  a  network  in  which  several 
MDS *  s  will  act  as  VAX/VMS  virtual  terminals. 

The  multiplexing  of  Ethernet  interface  is  the  backbone 
of  a  design  like  this.  Many  routines  of  the  software  of  the 
present  thesis  can  be  used  exactly  as  they  are  now, 
assuming  that  tha  system  will  include  no  more  than  nine 
virtual  VAX  terminals. 

The  present  configuration  of  tha  Ethernet  Interface 
Multiplexing  requires  that  the  program  "Et hermult"  which 
performs  this  task  will  run  in  a  VAX  terminal.  Since  this  is 
undesirable  in  a  virtual  terminal  network,  the  program  which 
will  perform  the  coordination  of  the  users,  should  be  able 
to  start  execution  automatically  when  a  message  arrives  at 
the  NI1010  board.  Also  it  should  be  able  to  supervise  any 
user,  regardless  of  his  privileges.  In  other  words  it 
should  be  able  to  have  access  to  any  user's  Virtual  Memory 
Space. 

A  solution  which  will  fulfill  those  requirements  would 
be  the  installation  of  the  coordinating  program  inside  the 
VMS  operating  system. 

The  program  could  use  the  "SysJgio"  system  routine  to 
listen  to  the  NI1010  board.  This  routine  is  interrupt- driven 
and  executes  prespecified  operations  when  an  I/O  event 
occurs,  so,  the  program  could  nset  the  ear"  of  the  system 
and  then  for  reasons  of  efficiency  go  to  hibernation.  The 
sequence  of  operations  in  the  program  could  be  as  follows  : 
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As  soon  as  a  message  arrives  at  the  NI1010,  an  AST  wakes 
the  coordinating  program  up  in  order  that  it  will  undertake 
normal  operation. 

The  same  procedures  which  are  executed  on  the  real  VAX 
terminal  cculd  be  followed.  So,  if  the  first  received 
message  is  a  carriage  return,  the  "Loginout"  procedure  is 
called  by  the  coordinating  program  to  interact  with  the  user 
for  identification  and  authorization.  Naturally,  routine 
"Sendmsg"  or  a  similar  one  will  be  used  to  sand  the  name  and 
password  requests  to  the  MDS. 

If  authorization  is  succesful  tha  user  name  and  tha 
address  of  the  corresponding  virtual  terminal  is  put  in  a 
table  and  the  number  of  current  users  is  updated.  Then  a 
mailbox  for  this  user  should  be  created.  This  mailbox  will 
be  the  input  port  for  tha  "Loginout"  procedure  (this  is  what 
cannont  be  achieved  currently)  ,  and  the  output  port  will  be 
a  file. 

As  soon  as  a  command  enters  a  mailbox  it  is  immediatelly 
executed  in  the  same  manner  as  if  this  command  had  been 
entered  from  a  VAX  terminal.  This  happens  because  "Loginout" 
maps  the  DCL  commands  to  PO  and  PI  spaces  of  the  process 
that  it  creates. 

Messages  other  than  the  inital  carriage  return  for  each 
user  are  queued  and  distributed  to  the  appropriate  mailboxes 
in  a  similar  way  as  in  "Bthermult". 

An  "export"  routine  will  pick  up  the  ready  answers  and 
send  them  to  the  Nil 010. 

The  use  of  common  event  flags  will  be  restricted  to  the 
denotation  of  ready  answers.  There  is  no  need  to  use  a  flag 
to  denote  the  presence  of  a  user  in  the  system,  because  the 
program  will  know  that  as  soon  as  succesful  log  in  has  been 
achieved. 

Since  the  commands  which  are  entered  a  mailbox  are 
executed  immediatelly  the  existance  of  programs  like 
"Usermult"  is  not  reguired. 
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Finally,  when  a  received  message  is  the  "Logout"  command 
the  user  to  whom  this  command  is  addressed  is  removed  from 
the  system,  and  the  user  information  table,  as  well  as  the 
number  of  current  users  is  updated.  If  all  users  have  exited 
the  system,  the  program  "sets  the  ear"  to  the  NI1010  and 
gees  to  hibernation  again. 

The  software  for  a  virtual  terminal  network,  as  visual¬ 
ized  by  the  authors  of  this  thesis,  is  not  much  different 
from  program  "Ether mult".  A  good  understanding  of  this 
program  and  a  thorough  knowledge  of  VAX/VMS  facilities 
should  make  the  accomplishment  of  this  task  a  relatively 
easy  thing  to  do. 


150 


orooram  Igaer 


APPENDIX  I 


this  orogram  creates  the  detached  orocess  'LOGEP'  which 
runs  the  ifaoe  'LUGINOUT.EXE'. 


i "o 1 i c i t 
i nt eger *U 
1 


inteoer*a(a-z) 

u  i  c  /  '  0  069000E'x/»mb**‘iosb(2)  >  i c  han / 
stsflag/* 000000 ''■*  O' */ 


characters 

use r ( 2 ) / ' SAKELL ' >  'SAKELL '  / 

character*! 2 

name/'  SAKELL  '/ 

character *32 

oass/'  SAKELL 

character 

mi ne (2) / ' sake! 1  '/ 

1 

1  sake  1  1 

cnaracter*6 

i nout l 2 ) 

•  / 


'  / 


create  detached  orocess  to  run  the  LOGIMOUT  imaae# 

and  set  as  inout  the  file  ‘INPUT. DAT’  and  outout  the  terminal. 

status  2  sysfc reorc (oi d« ' sy sSsyst em : 1 ogi nout ' » ' i nput .dat ' , 

1  '  *-t  tb  1  error  .dat  ’  ,  1 , 

2  *lOGER*,Xv«1(4), ’6841294*,,) 
i f ( .not .status)  tyoe  *#*ooods!  ', status 
if(status)  tyoe  *,'1ogingut  imaae  executed* 

execute  a  'show  system'  command  to  see  if  the  detached 
orocess  'LOGER'  has  been  created. 

status2 I i b isoawn (' ishgw  system’) 

t yoe  * » o i d 

end 
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